Вопрос, который вызвал трудности

Даны две целые переменные A, B. Составить фрагмент программы, после исполнения которого, значения переменных поменялись

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

USES Crt;
VAR
   A, B, T : INTEGER;
BEGIN
  ClrScr;     { Чистка экрана }
  Write(‘ Введите два значения   ‘);  
  ReadLn(A,B);
  {Введем дополнительную целую переменную T}
  T := A;  A := B;  B := T;
  Write(A,B);
END.
Решить  предыдущую  задачу,  не  используя дополнительных переменных (и предполагая, что значениями целых переменных могут быть произвольные целые числа).
USES Crt;
VAR
   A, B : INTEGER;
BEGIN
  ClrScr;
  Write(‘ Введите два значения   ‘);
  ReadLn(A,B);
  A := A + B;   B := A - B;  A := A - B;
  Write(A,B);
END.