Cho hai biến X và Y Hãy hoán giá trị hai biến đó mà KHÔNG DÙNG biến tạm

uses crt;
var x,y,z:longint;
begin
clrscr;
   readln(x,y);
   z:=x+y;
   x:=z-x;
   y:=z-y;
   writeln(x,’ ‘,y); 
readln;
end.