Program Min_Max;
Var X,Y,Min,Max:integer;
Begin
Writeln('donner deux entiers');
Readln(X,Y);
If X>Y Then 
Begin
Max:=X;
Min:=Y;
End
Else 
Begin 
Max:=Y;
Min:=X;
End;
Writeln('le maximum est:', Max, ' et le minimum est : ',Min);
End.