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

var x, y:Integer;Beginreadln(x);readln(y);if x>y thenwriteln(x,' ', y);if x<y thenwriteln(y,' ', x);End.