Написать программу обмена переменных x и y , без использования дополнительных велечин , ( это надо делать в pascal)

Var
  a,b:integer;
begin
  a:=50; b:=-20; { начальное присванивание }
  Writeln('Исходные значения: a=',a,', b=',b);
  a:=a+b; b:=a-b; a:=a-b;
  Writeln('Обмен после "арифметического"
  a:=50; b:=-20; { начальное присванивание }
  a:=a xor b; b:=a xor b; a:=a xor b;
  Writeln('Обмен после "логического"
end.

Результат выполнения программы:
Исходные значения: a=50, b=-20
Обмен после "арифметического"
Обмен после "логического"