Question

Дана последовательность целых чисел, заканчиваемые нулем. Подсчитайте сумму положительных чисел последовательности.  Пожалуйста помоги!!!

Answer 1

program beg;
var a,sum:integer;
begin
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then sum:=sum+a;
end;
writeln(sum);
end.