Вопрос, который вызвал трудности

1.Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности.
Паскаль

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var
    number: integer;
    sum, product, k: integer;

begin
    repeat
        write('number = ');
        readln(number);
        sum := sum + number;
    until number = 0;
    
    writeln('S = ', sum);
end.