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

program mest;
var a, b, c, tmp: real;
begin
    write('Введите a, b и c: ');
    readln(a, b, c);
    tmp := a;
    a := b;
    b := c;
    c := tmp;
    writeln('A = ', a);
    writeln('B = ', b);
    writeln('C = ', c);
end.