Program Boolean (True & False)

program boolean;

uses wincrt;

var

a,b,c: BOOLEAN;

begin

a:=true;

b:=false;

c:= a or b;

writeln('a : ',a);

writeln('b : ',b);

writeln(‘A : ’ ,a,' or B : ', b, ' => ',c);

end.