Запишите алгоритм циклического...

Запишите алгоритм циклического обмена значениями трех переменных a,b.c. Схема циклического обмена a->b->c Например, если до обмена былоa=1,b=2,c=3, то после обмена должно стать a=3,b=1,c=2. Выполнить трассировку.

 

Var a,b,c,t:integer;

Begin
  read(a,b,c);
  writeln('a':4,'b':4,'c':4);
  writeln(a:4,b:4,c:4);
  t:=a;
  writeln(a:4,b:4,c:4);
  a:=c;
  writeln(a:4,b:4,c:4);
  c:=b;
  writeln(a:4,b:4,c:4);
  b:=t;
  writeln(a:4,b:4,c:4);
End.