Цикл: Определите, какое максимальное количество детишек могло быть на ёлке? - Pascal ABC

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

!C использованием оператора «REPEAT»! Ребята получили на новогодней ёлке одинаковые подарки. Во всех подарках вместе было 123 батончика «MARS» и 82 шоколадных яйца «Kinder Сюрприз». Определите, какое максимальное количество детишек могло быть на ёлке? Сколько при этом батончиков и киндеров-сюрпризов было в каждом подарке?

Решение задачи: «Цикл: Определите, какое максимальное количество детишек могло быть на ёлке?»

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

var a,b,n,x:byte;
begin
a:=82;
b:=123;
x:=1;
repeat
if(a mod x=0)and(b mod x=0) then n:=x;
inc(x);
until x=a;
write('Максимальное число детишек=',n)
end.

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

В первой строке объявляются переменные a, b, n и x типа byte.
Значение переменной a устанавливается равным 82.
Значение переменной b устанавливается равным 123.
Значение переменной x устанавливается равным 1.
Затем начинается цикл while, который будет выполняться до тех пор, пока значение переменной x не станет равным 82.
Внутри цикла проверяется, делится ли без остатка значение переменной a на значение переменной x и делится ли без остатка значение переменной b на значение переменной x.
Если оба условия выполняются, то значение переменной n присваивается значение переменной x.
Значение переменной x увеличивается на единицу.
Если значение переменной x становится равным 82, то цикл завершается.
Значение переменной n выводится на экран.
Код завершается.