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

program swap;

var x, y: integer;

begin

// Пример 1

x := 5; y := 6;

if x > y then

begin

x := x + y;

y := x - y;

x := x - y;

end;

writeln('x=', x, ', y=', y); // Вывод: x=5, y=6

// Пример 2

x := 8; y := 7;

if x > y then

begin

x := x + y;

y := x - y;

x := x - y;

end;

writeln('x=', x, ', y=', y); // Вывод: x=7, y=8

end.