Оператор цикла до, или цикл с постусловием

Repeat <операторы> until <условие>;

Схема выполнения операторов имеет вид:

Цикл Repeat повторяется, если условие ложно (False), и заканчивается, если условие верно (True), т. е. цикл Repeat повторяется до выполнения условия. Цикл Repeat заканчивается проверкой условия, поэтому <операторы> выполняются не менее одного раза. В теле цикла может записываться более одного оператора.

Предыдущая задача с использованием цикла с постусловием решается так:

S:=0;

I: =1;

Repeat

S:=S+1/I;

I:=I+1

Until (1/K<Eps) Or (I>=MaxInt);