Написать программу для паскаль для расчета суммы введенных с клавиатуры N произвольных чисел с применением цикла с заданным числом повторений( с заданным условием продолжения работы,с условием окончания работы)

Предыдущий
вопрос Следующий
вопрос

Пример программы на Pascal:

program SumOfNumbers
va
N, i, num, sum: Integer
cont: Boolean
begi
sum := 0
cont := True
repea
writeln('Введите количество чисел N:')
readln(N)
for i := 1 to N d
begi
writeln('Введите число:')
readln(num)
sum := sum + num
end
writeln('Сумма введенных чисел: ', sum)
writeln('Желаете продолжить? (true/false)')
readln(cont)
until not cont
end.

Эта программа сначала запрашивает у пользователя количество чисел N, затем в цикле считывает N чисел и находит их сумму. После этого программа спрашивает пользователя, хочет ли он продолжить ввод чисел или окончить программу. Если пользователь вводит true, то программа продолжит работу, иначе программа завершится.