Помогите с информатикой
Паскаль

var

 a: array [1..10] of integer;

 i,count:integer;

begin

 count:=0;

 for i:=1 to 10 do

   begin

     read(a[i]);

     if a[i]>0 then inc(count);

   end;

 writeln(count);

end.