Циклически переставить значения переменных - Pascal

Формулировка задачи:

Даны переменные A,B,C. Изменить их значения, переместив их содержимое A в B, B - в C, C - в A, и вывести новые значения переменных A,B,C.

Решение задачи: «Циклически переставить значения переменных»

Листинг программы

  program fff;
   uses crt;
   var
  g,v,a,b,c:integer;
 begin 
  clrscr;
  read(a);
  read(b);
  read(c);
  v:=b;
  b:=a;
  g:=c;
  c:=v;
  a:=g;
  write(a,b,c);
 end.

Объяснение кода листинга программы

Объявление переменных:
- g, v, a, b, c - целочисленные переменные.
Ввод значений переменных:
- Ввод значения для переменной a.
- Ввод значения для переменной b.
- Ввод значения для переменной c.
Перестановка значений переменных:
- Присвоение переменной v значения переменной b.
- Присвоение переменной b значения переменной a.
- Присвоение переменной g значения переменной c.
- Присвоение переменной c значения переменной v.
- Присвоение переменной a значения переменной g.
Вывод значений переменных:
- Вывод значений переменных a, b и c.