{* Поменять местами значения переменных X и Y *}

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

Program pas106378;

Uses zamena01.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  x : integer;
  y : integer;
  z : integer;
Begin
  writeln('Введите x');
  readln(x);
  writeln('Введите y');
  readln(y);
  writeln; {* Пропускаем одну строку *}
  z := x;
  x := y;
  y := z;
  writeln('x = ', x, '  y = ', y);
  readln; {* Приостановка программы. Ожидание Enter *}
End.