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.

uses crt;

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

i, m, k, d : integer;

begin

clrscr;

d := 0;

write('Nhap so m và k : '); readln(m, k);

for i := 1 to m do

begin

write('Nhap phan tu thu ', i ,' : '); readln(a[i]);

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

end;

write('Co ', d ,' phan tu bang k ');

readln

end.