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

Question

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

Answer 1

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