Цикл repeat-until

Общий вид записи:

Repeat
<инструкция 1>;
...
<инструкция n>
until <условие>;

Инструкция repeat-until выполняется следующим образом : сначала выполняются инструкции <инструкция 1>...<инструкция n>. Затем проверяется условие. Если оно ложно , происходит возврат с выполнению инструкций <инструкция 1>...<инструкция n>. Если условие истинно, цикл считается выполненным и программа переходит к обработке следующих команд. Таким образом в цикле repeat-until <условие> - это условие завершения цикла: цикл повторяется, пока оно ложно.

Пример.

VAR S: REAL; N:INTEGER;
BEGIN
S:=0; N:=1;
REPEAT
S:=S+1/N;
N:=N+1;
UNTIL N>50;
WRITELN(' S=',S);
END.