Pascal. Задача 1-8

Пользователь вводит два целых числа в переменные A и B. Поменять значения у переменных местами и вывести их. Вспомогательную переменную не использовать.

Решение
var
  A, B : integer;
begin
  write('Введите значение переменной A? ');
  read(A);
  write('Введите значение переменной B? ');
  read(B);
  A := A + B;
  B := A - B;
  A := A - B;
  writeln('A =  ', A);
  writeln('B =  ', B);
end.