tugas 2 (if,  while do)

program konjungsi;
uses wincrt;

var
lagi:char;
per_1,per_2:string;

begin
lagi:=’y’;
while (lagi=’y’) or (lagi=’Y’) do
begin
clrscr;
writeln(‘SELAMAT DATANG DI PROGRAM LOGIKA MATEMATIKA’);
writeln(‘===========================================’);
writeln(‘nama           : novri irawan’);
WRITELN(‘nim            : 2225092262’);
writeln(‘smstr/kelas    : 3/D’);
writeln(‘materi         : logika matematika’);
readln;
clrscr;
writeln(‘KONJUNGSI’);
writeln;
writeln(‘Konjungsi adalah pernyataan majemuk dengan penghubung “dan”‘);
writeln(‘yang dilambangkan dengan “n”.’);
writeln(‘konjungsi “p dan q” dilambangkan dengan “p n q”‘);
readln;
writeln(‘TABEL KEBENARAN KONJUNGSI’);
writeln(‘——————————-‘);
writeln(‘P      Q                  P n Q’);
writeln(‘——————————-‘);
writeln(‘B      B                    B’);
writeln(‘B      S                    S’);
writeln(‘S      B                    S’);
writeln(‘S      S                    S’);
writeln(‘——————————-‘);
readln;
clrscr;
writeln(‘PROGRAM KONJUNGSI’);
writeln;
writeln(‘NOTE: tulis pernyataan dengan huruf besar (B/S)’);
writeln;
write(‘pernyataan 1 (B/S): ‘);readln(per_1);
write(‘pernyataan 1 (B/S): ‘);readln(per_2);
writeln;
if (per_1=’B’) and (per_2=’B’) then
writeln(‘maka konjungsinya bernilai: BENAR’)
else
writeln(‘maka konjungsinya bernilai: SALAH’);
writeln;
write(‘kembali ke menu?(y/t): ‘);readln(lagi);
end;
end.