var a, b:integer;
begin
a:=15;
b:=4;
while a>b do
a:=a-b;
write(a);
end.
Дебаг по алгоритму:
Вход в цикл
а = 11
а = 7
а = 3
Не соответствие условий цикла
Пропуск цикла
Вывод в консоль:
3
ответ: 3
