Ребят, помогите, а?)

Запишите алгоритм циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a–›b–›c (цикл. От "с" снова к "а").
Например, если до обмена было: а=1, b=2, c=3, то после обмена должно стать: а=3, b=1, c=2. Выполнила трассировку.

var a,b,c,d:integer;beginwrite('a=');readln(a);write('b=');readln(b);write('c=');readln(c);d:=c;c:=b;b:=a;a:=d;writeln('a=',a,'  b=',b,'  c=',c);end.Пример:a=1b=2c=3a=3  b=1  c=2