program FunDanproc_pesanArray;
uses wincrt ;
var p1, q1, konvers : string ;

function logimath (var B : string):string;
begin
if (p1=B)and(q1=B) then
writeln (‘B’);
end;

procedure suntikan (var a : string);
begin
if (p1=’B’)and(q1=’B’) or (p1=’B’)and(q1=’S’) then
writeln (‘maka konversnya adalah : B’);
if (p1=’S’)and(q1=’B’)or(p1=’S’)and(q1=’S’) then
writeln (‘maka konversnya adalah : S’);

end;

begin
writeln (‘Ini Program LogiMath’);
writeln (‘masukan logimath yang anda mau’);
writeln (‘rumus konvers = B :’);
write (‘masukan nilai p : ‘);
readln (p1);
write (‘masukan nilai q : ‘);
readln (q1);

readln (konvers);
suntikan (konvers);

end.