Сумма последовательности
Определите сумму всех элементов последовательности, завершающейся числом 0.
Числа, следующие за нулем, считывать не нужно.
Входные данные
Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит).
Выходные данные
Выведите ответ на задачу.
Исходный код на языке Pascal
var
a, s: integer;
begin
s := 0;
read (a);
while a <> 0 do
begin
s := s + a;
read(a);
end;
writeln(s);
end.