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

Var a,b,c,d:integer;
begin
  write('введите a,b,c ');
  readln(a,b,c);
  d:=c;c:=b;b:=a;a:=d;
  writeln('a = ',a,' b = ',b,' c = ',c);
end.

Тестовое решение:
введите a,b,c 3 2 1
a = 1 b = 3 c = 2