program demgiatrigiong;
uses crt;
var x: real;
N: array[1..1000] of real;
i, dem: integer;
begin
clrscr;
write('Nhap do dai day, N = '); read(n);
write('Nhap cac phan tu cua day: ');
for i:= 1 to n do
begin write('N[',i,'] = '); read(N[i] end;
write('Nhap gia tri x = '); read(x);
dem:=0;
for i:=1 to n do
if N[i] = x then dem:= dem+1;
writeln('So phan tu co gia tri giong x la ',dem,'gia tri');
readln
end.