Заданы величины х у действительного типа написать программу для обмена значений величин использовать вспомогательные величины нельзя

На паскале  ( язык программирования не указан)var x,y: real;begin  write('x = ');  readln(x);  write('y = ');  readln(y);  x:=x+y;  y:=x-y;  x:=x-y;  writeln('x = ',x,'  y = ',y);end.