Question

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

Answer 1

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