Программа циклического обмена значениями трёх переменных - Turbo Pascal

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

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

Решение задачи: «Программа циклического обмена значениями трёх переменных»

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

var
  a, b, c, x: integer;
  
begin
  writeln('Enter a, b, c:');
  readln(a, b, c);
  x := a;
  a := b;
  b := c;
  c := x;
  writeln('Result: ', a, ' ', b, ' ', c);
  readln
end.

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

В данном коде на Turbo Pascal происходит циклический обмен значениями трех переменных a, b и c.

Переменные a, b и c инициализируются целочисленными значениями.
Выводится приглашение пользователю ввести значения для переменных a, b и c.
Значение переменной x присваивается значению переменной a.
Значение переменной a присваивается значению переменной b.
Значение переменной b присваивается значению переменной c.
Значение переменной c присваивается значению переменной x.
Выводится результат обмена значениями на экран.
Программа завершается после чтения пользователем данных.