uses crt;

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

n,x,i,t:integer;

begin

clrscr;

write(' N = '); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(A[i]);

end;

write('Nhap vao so nguyen x = '); readln(x);

for i:=1 to n do if A[i]=x then t:=t+1;

if t>0 then writeln(x,' xuat hien ',t,' lan') else writeln(x,' khong xuat hien trong day');

readln

end.

program bestanhvan;
uses crt;
var a:array[1..100] of integer;
n,i,x,d:integer;
begin
d:=0;
write('N = ');read(n);
write('x = ');read(x);
for i:=1 to n do
begin
write('a[',i,']=');
read(a[i]);
if a[i]=x then inc(d);
end;
if d<>0 then write(x,' xuat hien ',d,' lan')
else write(x,' khong xuat hien trong day ');
readln;
end.