BAB 7 Ekspresi Boolean & Pernyataan Majemuk

program boolean;
uses crt;
var
   x:integer;
   y:integer;
   kar:char;
begin
     clrscr;
     writeln('A > a = ','A' > 'a');
     writeln('a > A = ','a' > 'A');
     writeln('10 > 3 = ', 10 > 3);
     writeln;

     write('Masukkan nilai x = ');
     readln(x);
     write('Masukkan nilai y = ');
     readln(y);
     writeln('x > y = ', x>y);
     writeln('y < x = ', y
     writeln;

     write('Masukkan sebuah karakter : ');
     readln(kar);
     writeln('Apakah merupakan huruf kapital ?');
     writeln( (kar>='A') AND (kar<='Z') );
     writeln('Berupa Z atau z ?');
     writeln( (kar='Z') OR (kar='z') );
     writeln('Bukan berupa huruf kapital ?');
     writeln(NOT ((kar>='A') AND (kar<='Z')) );

     readln;
end.