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

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

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