Пример цикла с постусловием

Листинг 3.8. Пример цикла с постусловием

repeat // Начало цикла
К : = I mod J; // Тело цикла I : = J;
J : = К; until J = 0; // Условие цикла