{* Замена сложением *}

Unit ZAMENA02;
Interface
Implementation
Begin
 writeln('Поменять местами значения переменных X и Y, не используя дополнительные переменные.');
End.

Program pas30939;

Uses zamena02.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  x : real;
  y : real;
Begin
  writeln('Введите x');
  readln(x);
  writeln('Введите y');
  readln(y);
  writeln; {* Вывод пустой строки *}
  x := x + y;
  y := x - y;
  x := x - y;
  writeln('x = ', x : 2 : 2, '  y = ', y : 2 : 2);
  readln; {* Ждем подтверждения пользователя *}
End.