Поменять местами значения х и у не используя дополнительную переменную.(pascal)

Var x,y:integer;
 Begin
  x:=20; 
 y:=40; 
 x:=x+y;  
y:=x-y;  
x:=x-y;  
Write (x,'  ',y); End.