pascal repeat

Ответ от Василий Пупкин[гуру]
В ТП есть 2 условных цикла: While и Repeat. Первый из них выполняется, пока условие, указанное после ключевого слова While выполняется (истинно) ; если условие всегда будет оставаться ложным, то произойдёт зацикливание программы.
К примеру, данный цикл будет выполняться до тех пор, пока очередное значение суммы не превысит 10 (но бесконечное (теоретически) ) число раз - можете суммировать хоть 50 чисел) :
...
sum:=1
while sum<10 do
begin
write('Введите число: '); read(n);
sum:=sum+n
end;