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

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