Program SumOfPositiveNumbers;
var
N, number, i, sum: integer;
begin
sum := 0;

write${}^{\prime }Enterthetotalnumberofelements{:}^{\prime }$;
readln$N$;

for i := 1 to N do
begin
write${}^{\prime }Enternumbe{r}^{\prime },i{,}^{\prime }{:}^{\prime }$;
readln$number$;

end;

writeln${}^{\prime }Thesumofpositivenumbersis{:}^{\prime },sum$;
end.