Написать программу для нахождения наибольшего общего делителя двух целых чисел - Pascal ABC

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

В программе ввести индекс,значение которого увеличивается после каждого действия оператора.

Решение задачи: «Написать программу для нахождения наибольшего общего делителя двух целых чисел»

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

Var a,b,nod:longint;
Begin
read (a,b);
while (a>0)and(b>0)and(a<>b) do
  if a>b then a := a mod b else b := b mod a;
if a <> 0 then nod := a else nod := b;
writeln (nod);
end.

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

В данном коде используется алгоритм Евклида для нахождения наибольшего общего делителя (НОД) двух целых чисел. Алгоритм работает следующим образом:

Объявляются три переменные: a, b и nod типа longint.
Считываются два числа с помощью функции read.
Запускается цикл while, который выполняется до тех пор, пока одно из чисел не станет равным нулю.
Внутри цикла происходит сравнение чисел a и b. Если a больше b, то выполняется операция модуля a по b и условие цикла повторяется. Если b больше a, то выполняется операция модуля b по a и условие цикла повторяется. Если a и b равны, то выполняется операция модуля a по b и условие цикла повторяется.
После выхода из цикла, переменной nod присваивается значение НОД(a, b).
Выводится значение переменной nod с помощью функции writeln. Таким образом, данный код выполняет задачу нахождения наибольшего общего делителя двух целых чисел.