Нужно написать программу. заданы величины x,y действительного типа. написать программу обмена значений величин.использовать величины нельзя.

Var X,y:real; Begin Readln(x); Readln(y); X:=x+y; Y:=x-y; X:=x-y; Write('x='); writeln(x); Write('y=');writeln(y);