program mest;
var a, b, c, tmp: real;
begin
write('Введите a, b, и c: ');
readln(a, b, c);
tmp := c; {Присваиваем значение C дополнительной переменной}
c := b;
b := a;
a := tmp;
writeln('A=', a);
writeln('B=', b);
writeln('C=', c);
end.