Доны 2 числа x и y поменять их значения без 3 переменой

Program *твое крутое имя*;
X,Y: integer;
begin
X:=*любое*
Y:=*любое*
X:=X+Y;
Y:=X-Y;
X:=X-Y;
Writeln(если нужен)
End.