Нужно придумать алгоритм обмена значениями без использования 3 переменной

Держи
var a,b,c:real; 
begin 
Writeln('A='); 
read(a); Writeln('B='); 
read(b); 
c:=b; 
b:=a; a:=c; 
Writeln('A=',a); 
Writeln('B=',b); 
End. 
 

Var a,b: integer;
begin
  write('a = '); readln(a);
  write('b = '); readln(b);
  a:=a+b;
  b:=a-b;
  a:=a-b;
  writeln('a = ',a,'  b = ',b);
end.

a = 15
b = 20
a = 20  b = 15