program Variaveis_Logicas;

 { as variáveis lógicas são do tipo boolean }

 { operadores logicos: not, and, or , shl , shr }

 var X,Y:byte;

 var Maior,Igual,Menor:boolean;

begin X:=20; Y:=10;

     begin Writeln('X:',X); Writeln('Y:',Y); end;

 Maior:=(X>Y);

 Igual:=(X=Y);

 Menor:=(X<Y);

     begin

        Writeln('X>Y:',Maior);

         Writeln('X=Y:',Igual);

         Writeln('X<Y:',Menor);

         Writeln('X<=Y:',not(Maior));

         Writeln('X<>Y:',not(Igual));

         Writeln('X>=Y:',not(Menor));

      end;

 end.