Question

Напишите программу, которая производит обмен згачений переменных x и y, если x больше y.

пример входных пример выходных
данных данных
x>>5 x=6
y>>6. y=5

x>>6 x=5
y>>5. y=6

Answer 1

Решение №1
var x,y:integer;
begin
  readln(x,y);
  if x> y then begin
     x:=x+y;
     y:=x-y;
     x:=x-y;
     writeln(x,' ',y);
end.

Тестовое решение:
8 5
5 8

Решение №2
На PascalABC.Net можно сделать проще:

var x,y:integer;
begin
 readln(x,y);
 if x>y then begin  swap(x,y); println(x,y); end;
end.