:даны значения трех действительных переменных a, b и c. обменять местами их значения так, чтобы a получила бы значение b, b получила значение c, а переменная c получила значение a.

Program gt;
var a,b,c,d:real;
begin
read(a,b,c);
d:=a;
a:=b;
b:=c;
c:=a;
writeln(a,' ',b,' ',c);
end.
Я же тебе написать решение в тот раз задала бы вопрос
короче так:
a:=b
b:=c
в a будем хранит b
в b будем хранить c
в c мы неможем хранит значение a напрямую так как у нас a исменилась (стала b)а B стала C
поэтому берем дополнительный элемент D в которой храним значение a перед тем как A изменится и становится B
после чего d=a(начальная)  в C храним D