const n = 10;
var
a: array[1..n] of integer;
i, x, count: integer;
begin
readln(x);
for i := 1 to n do begin
a[i] := random(100);
write(a[i], ' ');
if(a[i] = x) then inc(count);
end;
writeln;
writeln('Число ', x, ' встречается в массиве ', count, ' раз');
end.