uses crt;
var a: array[1..100] of integer;
i,n,k: integer;

d: byte;

begin
clrscr;
write('nhap n: ');   readln(n);

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

for i:=1 to n do
begin
write('nhap phan tu thu ',i,': ');  readln(a[i]);
end;
for i:=1 to n do if a[i]=k then d:=d+1;
write('so lan xuat hien cua so ',k,' trong mang la: ',d);
readln;
end.

uses crt;
var a:array[1..10000] of integer;
      n,i,k,d:integer;
begin
      clrscr;
      d:=0;
      write('Nhap n: '); readln(n);
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      write('Nhap k: '); readln(k);
      for i:=1 to n do if a[i]=k then d:=d+1;
      write('So lan xuat hien cua ',k,' la: ',d);
      readln;
end.