Определите сумму всех элементов последовательности, завершающейся числом 0. числа, следующие за нулем, считывать не нужно. входные данные вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит). выходные данные выведите ответ на . примеры входные данные 1 7 9 0 выходные данные 17
var
a,s : integer;
begin
s := 0;
readln (a);
While a <> 0 do
begin
s := s +a;
readln (a);
end;
writeln (s);
end.