Prova i logici 2

Con i cicli?

Program Prova_Logici;
Var
   a, b: Boolean;
Begin
   Writeln('  a      Not');
   For a:=FALSE To TRUE Do
      Writeln(a:5, ' = ' , (Not a):5);
   Writeln;
   Writeln('  a     b       Or   And   Xor');
   For a:=FALSE To TRUE Do
   For b:=FALSE To TRUE Do
      Writeln(a:5,b:6,' = ',(a Or b):5,(a And b):6,(a Xor b):6);
   Writeln;
   Writeln('  a     b       <     <=    =     >     >=    <>');
   For a:=FALSE To TRUE Do
   For b:=FALSE To TRUE Do
      Writeln(a:5,b:6,' = ',(a < b):5,(a <= b):6,(a = b):6,(a > b):6,(a >= b):6,(a <> b):6);
   Readln;
End.