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é!.