Склавиатуры вводится n целых чисел, несколько положительный и несколько отрицательных, найти сумму положительных. (паскаль) написать программу.

Var i,n,a,sum:integer;
begin
readln(n);
sum:=0;
for i:=1 to n do
begin
readln(a);
if a>0 then
sum:=sum+a
end;
writeln(sum)
end.