Viết chương trình nhập vào một mảng gồm N số nguyên,hãy cho biết có bao nhiêu phần tử trong mảng có giá trị bằng 10

Program BTT;
Uses crt;
Var A:array[1..10000] of longint;
    i,n,dem: longint;
Begin
        Clrscr;
        Write('Nhap so luong phan tu: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        dem:=0;
        For i:=1 to n do
                If A[i]=10 then inc(dem);
        Write('Co ',dem,' phan tu bang 10');
        Readln
End.

uses crt;
var n,i,d:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write('Nhap so n: ');readln(n);
   for i:=1 to n do 
      begin
         write('Nhap phan tu thu ',i,': ');read(a[i]);
         if a[i]=10 then inc(d);
      end;
   writeln('Co ',d,' phan tu co gia tri bang 10');
readln
end.