Cho dãy A có N phần tử a1, a2 …. aN được nhập từ bàn phím. Đưa ra (D) Có bao nhiêu của dãy lớn hơn 9. * ( giúp em với ạ huhu )

uses crt;
var i,n,d:longint; a:array[1..250]of longint;
begin
clrscr;
   write('Nhap N: ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap a[',i,']= ');readln(a[i]);
         if a[i]>9 then d:=d+1;
      end;
   writeln(d);
readln
end.

Program baitap;

Uses crt;

Var A:array[1..200] of integer;

      i,N,D:integer;

Begin

Clrscr;

D:=0;

Write('N='); Readln(N);

For i:=1 to N do

     Begin

     Write('A[',i,']=');

     Readln(A[i]);

     If A[i]>9 then D:=D+1;

     End;

Writeln('Co ',D,' phan tu cua day lon hon 9');

Readln

End.