Program Sup_Inf;
Var a, b : Integer;
sie : String ;
Begin
Writeln ('Saisir deux entiers : ');
Readln (a, b) ;
IF a>b Then sie := ' est supérieur à '
Else IF a<b Then sie := ' est inférieur à '
Else sie := ' est égal à ' ;
Writeln (a, sie, b) ;
End.