Плиз приведите 1 пример цикл пост условия

Program Summer1; varsum, a: real; { sum — для накопления суммы. А — для очередного числа }beginsum: =0; { Обнуляем сумму }а: =0; { Это тактическая хитрость (см. Замечание к примеру) }repeatsum: =sum+a; { Добавляем введенное число к сумме } write ('Введите число: '); { Ввод очередного числа }readln (a) until а<0; { Проверяем введенное число на отрицательность }{ При выходе из цикла выполняется этот оператор: } writeln ('Сумма чисел=', sum: 5:3); readln end.