Циклические алгоритмы (2)

Виды циклов
Цикл с предусловием
Цикл с постусловием
Цикл со счетчиком

Цикл с постусловием (repeat)
Иногда при решении задач возникает необходимость выполнить тело цикла хотя бы один раз, а потом исследовать условие повторять ли его еще раз. Эту задачу выполнит другой вид цикла Repeat.

Форма записи
repeat
операторы
until <условие>;
до тех пор, пока условие не будет верным

Есть небольшое отличие в организации цикла repeat по сравнению с while: для выполнения в цикле repeat нескольких операторов не следует помещать эти операторы в операторные скобки begin ... end. Зарезервированные слова repeat и until действуют как операторные скобки.
Конструкция repeat ... until работает аналогично циклу while. Различие заключается в том, что цикл while проверяет условие до выполнения действий, в то время как repeat проверяет условие после выполнения действий. это гарантирует хотя бы одно выполнение действий до завершения цикла.

Задача: найти сумму пяти целых чисел.
S — сумма чисел (integer)
Переменные:
x — вводимое число (integer)
i — переменная цикла (integer)

Текст программы
Program Summa;
Var S, x, i : integer;
Begin
S:=0;
i:=0;
Repeat
i:=i+1; Write (‘Введите ',i,'-е число ');
readln (x);
S:=S+x;
Until i=5;
writeln (‘Сумма чисел равна ‘,S);
End.

Задачи
Напечатать "Привет, Вася!" 10 раз.
Программа должна вычислять произведение двух чисел и спрашивать завершать программу или нет, если нет то продолжать запрашивать данные вычислять произведение и печатать его.