viết chương trình nhập vào một mảng số m số và chỉ số k.tính và đưa ra các số trùng với k trong mảng

program sok;

uses crt;

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

      n,i,k,d:integer;

begin

clrscr;

write(‘Nhap so luong phan tu cua day: ‘);  

   readln(n);

writeln(‘Nhap tung phan tu cua day: ‘);

for i:=1 to n do

  begin

   write(‘Nhap A[‘,i,’]: ‘);

      readln(A[i]);

  end;

write(‘Nhap k: ‘);

 readln(k);

d:=0;

for i:=1 to n do

  if A[i]=k then inc(d);

writeln(‘Trong day cos ‘,d,’ phan tu bang ‘,k);

readln

end.