Question

Напишите линейную программу, в результате выполнения которой целочисленные переменные x и y обмениваются значениями. При этом нельзя использовать дополнительные переменные.

Answer 1

Var
x,y:Integer;
Begin
 Read(x,y);
 x:=x+y;
 y:=x-y;
 x:=x-y;
Writeln(x, ' ',y);
end.