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

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.