СДЕЛАТЬ В 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.