program logika;
uses wincrt;
var bil1,bil2:char;

begin

writeln(‘SELAMAT DATANG ‘);readln;
clrscr;
writeln(‘MARI BELAJAR PROGRAM BIIMPLIKASI! ‘);
readln;
write(‘PERNYATAAN 1 ‘,'(pilih pernyataan BENAR atau SALAH): ‘);read(bil1);
write(‘PERNYATAAN 2 ‘,'(pilih pernyataan BENAR atau SALAH): ‘);readln(bil2);
readln;
if((bil1=’BENAR’)and(bil2=’BENAR’) or (bil1=’SALAH’)and(bil2=’SALAH’))then
write(‘jadi biimplikasinya adalah: BENAR’)
else writeln(‘jadi biimplikasinya adalah: SALAH’);
readln;
clrscr;

writeln(‘COBA SEKALI LAGI’);readln;
write(‘PERNYATAAN 1 ‘,'(pilih pernyataan BENAR atau SALAH): ‘);read(bil1);
write(‘PERNYATAAN 2 ‘,'(pilih pernyataan BENAR atau SALAH): ‘);readln(bil2);
readln;
if((bil1=’BENAR’)and(bil2=’BENAR’)or(bil1=’SALAH’)and(bil2=’SALAH’))then
write(‘jadi biimplikasinya adalah: BENAR’)
else writeln(‘jadi biimplikasinya adalah: SALAH’);
readln;

end.