program oken;
uses crt;
var a: array [1..100] of integer;
x,dem,i,n:integer;
begin
clrscr;
writeln('nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('a[,i],']: '); readln(a[i]);
end;
write('nhap x: '); readln(x);
for i:=1 to n do if x=a[i] then dem:=dem+1;
writeln('so lan gia tri ',x,' xuat hien trong mang: ',dem);
readln;
end.