Поменять местами значения переменных А и В используя и не используя дополнительную переменную

Автор: Захаров Андрей

Достаточно простая задача. Смотрите текст программы и сразу станет понятно =)

Текст программы меняющий местами переменных А и В используя дополнительную переменную:

Var
  a,b,c:integer;
begin
  Readln(a);
  Readln(b);
  c:=a;
  a:=b;
  b:=c;
end.

Текст программы меняющий местами переменных А и В не используя дополнительную переменную:

Var
  a,b:integer;
begin
  Readln(a);
  Readln(b);
  a:=a+b;
  b:=a-b;
  a:=a-b;
end.