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

На паскале  ( язык программирования не указан)

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.