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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.