Напишите линейную программу, в результате выполнения которой целочисленные переменные x и y обмениваются значениями. При этом нельзя использовать дополнительные переменные.
Помогите, пожалуйста!!!
Var x,y:Integer; Begin Read(x,y); x:=x+y; y:=x-y; x:=x-y; Writeln(x, ' ',y); end.