Question

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

Answer 1

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

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