Цикл repeat

где условие - логическое выражение определяющее условие завершения цикла.
Проверка условия в цикле ДО осуществляется после выполнения оператора(ов).

Структурная схема цикла ДО.
оператор
?
ДА
НЕТ
-
+

Примеры:
1) x:=2
Repeat
x:=x+1;
Until x=10;
2) s:=0; (введены 4, 5, 2, 0) Repeat
read(n);
if n<>0 then s:=s+n;
Until n=0;

Следующая программа вычисляет сумму положительных чисел, введенных с клавиатуры.