program CountOccurences;

var
arr: array[1..10] of integer;
num, count, i: integer;

begin
// Заполняем массив случайными числами
randomize;
for i := 1 to 10 do
arr[i] := random(100);

// Считываем число с клавиатуры
write('Введите число: ');
readln(num);

// Ищем количество вхождений числа в массиве
count := 0;
for i := 1 to 10 do
begin
if arr[i] = num then
count := count + 1;
end;

// Выводим результат
writeln('Число ', num, ' встречается в массиве ', count, ' раз.');

end.