Описать процедуру ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг

[Rufer]

Описать процедуру ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг: значение A переходит в C, значение C — в B, значение B — в A (A, B, C — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры выполнить левый циклический сдвиг для двух данных наборов из трех чисел: (A1, B1, C1) и (A2, B2, C2).

[Serge_Bliznykov]

procedure ShiftLeft3(var A, B, C:real);
var t:real;
begin
  t:=C;
  C:=A;
  A:=B;
  B:=t
end;