Доны 2 числа X и Y поменять их значения без 3 переменой
a:= a + b;b:= a - b:a:= a - b;
Program *твое крутое имя*; X,Y: integer; begin X:=*любое* Y:=*любое* X:=X+Y; Y:=X-Y; X:=X-Y; Writeln(если нужен) End.
Спосиб