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

*P/S: Bạn lên youtube hoặc tìm trang web học pas học nhé!.

Nếu có lỗi thì bạn nói mình nhé. ^^

program Hello;
uses crt;
var n,k,dem,i: integer;
    a:array[1..100] of integer;
begin
    clrscr;
    write('Nhap n: ');
    readln(n);
    for i:= 1 to n do
        read(a[i]);
    write('Nhap k: ');
    readln(k);
    for i:=1 to n do
        if a[i]=k then
            dem:=dem+1;
    writeln('So lan xuat hien cua ', k, ' la: ', dem);
end.