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

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

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

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

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