Формат записи оператора цикла с постусловием имеет следующий вид:
REPEAT
оператор1;
оператор2;
…………………
операторN;
UNTIL условие;
Описание конструкции: «Выполнять последовательность операторов до тех пор, пока условие не станет верным».
Схема работы оператора приведена на рисунке 6.4.
Рисунок 6.4 – Структурная схема оператора цикла с постусловием
В теле цикла записывается один или несколько операторов, которые будут выполняться многократно. Они располагаются между служебными словами Repeat и Until, поэтому обрамлять их словами Begin и End не нужно. После слова Until записывается условие выхода из цикла (по значению параметра).
Необходимо обязательно изменять параметр внутри цикла, иначе цикл будет выполняться бесконечно. Цикл выполняется по крайней мере 1 раз.
Пример
Программа подсчитывает сумму 
до введенного пользователем числа:
Program Summa_Repeat;
Var
I, N: Integer;
S: Real;
Begin
Write('Введите N = ');
Readln(N);
S:=0;
I:=1;
Repeat
S:=S + I / 2;
I:=I+1;
Until I>N;
Writeln ('Cумма = ', S:3:2);
Readln;
End.
