viết chương trình nhập vào một mảng một số nguyên k kiểm tra có bao nhiêu số trong mảng = k

var a: array[1..250] of integer;

      k: integer;

      i, n, d: byte;

Begin

      Write('k = '); readln(k);

      Write('n = '); readln(n); d:=0;

      For i:=1 to n do

        Begin

           Write('a[', i, '] = '); readln(a[i]);

           If a[i]=k then inc(d);

        End;

    Write('co ', d, ' so bang ', k);

    Readln

End.

program dem_trung;

uses crt;

var A:array[1..1000] of integer;

     n,i,k,d:integer;

begin

       clrscr;

       write('Nhap k: ');   readln(k);

       write('Nhap so luong phan tu cua mang: ');   readln(n);

       d:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');   readln(A[i]);

                     if A[i]=k then d:=d+1;

              end;

       write('Co ',d,' so bang ',k);

       readln;

end.