Program P11;
 { Operaţii cu date de tipul boolean }
var x, y, z : boolean;
begin


 x:=false; y:=false;
 writeln('x=', x, '  y=', y);
 z:=not x; writeln('not x = ', z);
 z:=x and y; writeln('x and y = ', z);
 z:=x or y; writeln('x or y = ', z);
 writeln;


 x:=false; y:=true;
 writeln('x=', x, '  y=', y);
 z:=not x; writeln('not x = ', z);
 z:=x and y; writeln('x and y = ', z);
 z:=x or y; writeln('x or y = ', z);
 writeln;


 x:=true; y:=false;
 writeln('x=', x, '  y=', y);
 z:=not x; writeln('not x = ', z);
 z:=x and y; writeln('x and y = ', z);
 z:=x or y; writeln('x or y = ', z);
 writeln;


 x:=true; y:=true;
 writeln('x=', x, '  y=', y);
 z:=not x; writeln('not x = ', z);
 z:=x and y; writeln('x and y = ', z);
 z:=x or y; writeln('x or y = ', z);
 writeln;

end.