поменять местами значения х и у не используя дополнительную переменную.(Pascal)

Var x,y:integer;
 Begin
  x:=20; 
 y:=40; 
 x:=x+y; 
y:=x-y; 
x:=x-y; 
Write (x,  ,y);End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.