Se considera tabloul A [1..n] de numere intregi , n <=100. Sa se scrie un program care numara cite elemente pozitive contine acest tablou

Dau coroana!!!!

program Prob;

type tablou=array[1..100] of integer;
var A:tablou;
var i,n,nr_pozitive:integer;

begin
   writeln('Introduceti nr de elemente:');
   readln(n);
   writeln('Introduceti elementele:');
   nr_pozitive:=0;
   for i:=1 to n do
   begin
   read(A[i]);
   if A[i]>0 then
    nr_pozitive:=nr_pozitive+1;
   end;
   writeln('nr elemente pozitive:',nr_pozitive);
end.