Поменять ячейки местами a:=n, b:=m. Паскаль

program swap;

var a, b: integer;

begin

write ('enter a ');

readln (a);

write ('enter b ');

readln (b);

a:=a+b; / / Сумма чисед а и b

b:=a-b; / /Если из суммы a+b вычесть b, то b станет равным а.

a:=a-b; / /Если из суммы вычесть новое значение b, то получим новое / /значение а

writeln ('a = ', a);

writeln ('b = ', b)

end.