var pilih : char ;

procedure logika;
var bil1 : string ;
var nama, nama1, nama2, hasil : string ;
var p,q: boolean ;

begin
writeln (‘ logika matematika ‘ );
write (‘disjungsi p v q’);
readln (bil1);
writeln (‘pastikan menggunakan huruf kapital’);
write (‘masukkan nilai kebenaran p = ‘);
readln ;
write (‘masukkan nilai kebenaran q = ‘);
readln ;
readln (nama2) ;
if (nama1=’B’) and (nama2=’B’) or (nama1=’B’) and (nama2=’S’) or (nama1=’S’) and (nama2=’B’) then
writeln (‘maka p v q adalah B’);

end ;

begin

write (‘Masukkan pilihan anda suka [1] belum di car [B] [S] ‘);
readln (pilih);
case pilih of
‘1’ : write ( ‘aku pilih satu ‘);
‘2’ : logika ;
‘3’ : write (‘ aku pilih S’);

else

write (‘ coba pilih yang benar ‘);

end;

end.