Этот цикл выполняется не менее одного раза
Пример 1.5: Решение предыдущей задачи.
Цикл с постусловием
Повторять
если X> Y
то X:=X-Y
иначе Y:=Y-X
до X=Y;
Писать (‘НОД=’, X);
REPEAT
IF X> Y
THEN X:=X-Y
ELSE Y:=Y-X
UNTIL X=Y;
WRITE (‘НОД=’, X);
REPEAT – повторять
UNTIL – до