Обмен значений двух целочисленных переменных

Pas.0004. Напишите программу, которая меняет значения двух целочисленных переменных типа без использования вспо­мо­га­тель­ных переменных.

Решение.

program SwapIntegers;

var
    a: integer = 2017;
    b: integer = -1;
 
begin

    writeln('до    (', a, ', ', b, ')');

    a := a + b;
    b := a - b;
    a := a - b;

    writeln('после (', a, ', ', b, ')');
 
end.