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);