Составить программуВести с клавиатуры переменные х и у, поменять их значения местами, если x>y.На Pascal

var x, y:Integer;
Begin
readln(x);
readln(y);
if x>y then
writeln(x,' ', y);
if x<y then
writeln(y,' ', x);
End.