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

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