Даны переменные A, B, C. Изменить их значения, переместив содержимое A в B, B — в C, C — в A, и вывести новые значения переменных A, B, C — Pascal(Паскаль)

Program Begin23;

Var
  A, B, C, Temp1, Temp2: Real;

Begin
  WriteLn('Введите A,B и C');
  RealLn(A, B, C);
  Temp1 := B;
  Temp2 := C;
  B := A;
  C := Temp1;
  A := Temp2;
  WriteLn('A = ', A:6:3, ' B = ', B:6:3, ' C = ', C:6:3);
  ReadLn;

End.