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

Если не использовать дополнительных переменных (для чисел), то:

Var x, y:integer;

begin

read (x, y) ;

x:=x+y;

y:=x-y;

x:=x-y;

writeln (x, ' ', y) ;

end.

Можно и через дополнительную переменную:

Var x, y, s:integer;

begin

read (x, y) ;

s:=x;

x:=y;

y:=s;

writeln (x, ' ', y) ;

end.