Сделать в packalabc даны значения трех вещественных переменных а,b и с обменять местами их значения при этом нельзя использовать никаких дополнительных переменных (a=b,b=c,c=a)

Program prog;
uses crt;

var a,b,c: real;

begin;
clrscr;

readln(a,b,c);

a:=a+b+c;// a=a+b+c;
b:=a-b; // b=a+c;
c:=b-c; // c=a;
b:=b-c; // b=c;
a:=a-b-c; // a=b;

write(a,' ', b, ' ',c);
end.