Помогите ,поооожалуйста!Срочно очееень
последовательно вводятся n целых чисел найти сумму всех положительных среди них проверить для n =10 

var A:array [1..10] of integer;I,S:integer;beginfor i:= 1 to 10 do beginwriteln('A[',i,']=');readln(A[i]);end;S:=0;for i:= 1 to 10 doif (A[i]>0) then s:=s+A[i];writeln('S=',S);readln;end.