program Meu_Segundo_Procedimento;

  procedure Avalia(X,Y:byte);
  var Maior,Igual,Menor:boolean;
  begin { of procedure Avalia }
  Writeln('-----------------------------------');
    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;  { of procedure Avalia }

begin { of program }
Avalia(5,10);
Avalia(10,5);
Avalia(5,5);
end.  { of program }