Begin23. Даны переменные A, B, C. Изменить их значения, переместив содержимое A в B, B – в C, C – в A, и вывести новые значения переменных A, B, C.
var a, b, c, buf: real;
begin
  write('Введите значения А, B и C ->');
  readln(a, b, c);
  buf:=a;
  a:=c;
  c:=b;
  b:=buf;
  writeln('A = ', a:6:2);
  writeln('B = ', b:6:2);
  writeln('C = ', c:6:2);
end.