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.