Даны два натуральных числа. Пока первое число не меньше второго, заменять его на разность первого и второго. Результат работы алгоритма — полученное первое число.

var a, b:integer;

begin

a:=15;

b:=4;

while a>b do

a:=a-b;

write(a);

end.

Дебаг по алгоритму:

Вход в цикл

а = 11

Вход в цикл

а = 7

Вход в цикл

а = 3

Не соответствие условий цикла

Пропуск цикла

Вывод в консоль:

3

Ответ: 3