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

var
A, B, C, v: real;

begin
write('A = ');
readln(A);
write('B = ');
readln(B);
write('C = ');
readln(C);
{ A и C меняем местами: }
v := A;
A := C;
C := v;
{ A и B меняем местами: }
v := A;
A := B;
B := v;
writeln('Результат:');
writeln(' A = ', A, ', B = ', B, ', C = ', C);
readln
end.