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.
UHJvZ3JhbSBTdXBfSW5mOwpWYXIgYSwgYiA6IEludGVnZXI7CnNpZSA6IFN0cmluZyA7CkJlZ2luCldyaXRlbG4gKCdTYWlzaXIgZGV1eCBlbnRpZXJzIDogJyk7ClJlYWRsbiAoYSwgYikgOwpJRiBhPmIgVGhlbiBzaWUgOj0gJyBlc3Qgc3Vww6lyaWV1ciDDoCAnCkVsc2UgSUYgYTxiIFRoZW4gc2llIDo9ICcgZXN0IGluZsOpcmlldXIgw6AgJwpFbHNlIHNpZSA6PSAnIGVzdCDDqWdhbCDDoCAnIDsKV3JpdGVsbiAoYSwgc2llLCBiKSA7CkVuZC4=