написать программу на Pascal! Требуется вычислить, сколько раз встречается некоторое число X в массиве A[1..N].
Входные данные
Первая строка входного файла INPUT.TXT содержит натуральное число N – количество элементов в массиве. Во второй строке записаны N целых чисел Ai, разделенные пробелом. Третья строка содержит число X. Все числа во входных данных не превосходят 1000 по абсолютной величине.
Выходные данные
В выходной файл OUTPUT.TXT выведите количество вхождений числа X в массив A.

1) Робот- это машина, которая запрограммирована на определенные действия, которые облегчают жизнь человеку. На самом деле, мы используем в быту довольно много роботов: та же стиральная машина-робот; пылесос- робот; компьютер-робот; автомобиль- тоже робот. Как видно, они здорово нам в жизни.

2) к первым роботам можно отнести механическую утку, которую изобрел основоположник робототехники, физик Жак де Вокансон.

Также к числу первых робототехников можно отнести и великого русского механика и физика Чебышева, который изобрел различные механические машины.

Описательная часть: все что находится в Var'e
var
a:array [1..100,1..100] of real; - описание двумерного масива
b:array [1..100,1..100] of real; - аналогично
i,m,n,c:integer; - описание переменных целого типа, тип это integer
i
begin - начало исполняемой части
readln(n); - считывает переменную целого типа, кол-во строк матрицы
readln(c); - аналогично, кол-во столбцов матрицы
for i:=1 to n do -цикл для строк
for m:=1 to c do - цикл для столбцов
 readln(a[i,m]); - считывает и записывает в двумерный массив числа
for i:=1 to n do -цикл для строк
for m:=1 to c do - цикл для столбцов
b[i,m]:=a[i,m]/8; - это каждый элемент массива А делит на 8, и присваивает другому массиву
for i:=1 to n do -цикл для строк
for m:=1 to c do- цикл для столбцов
 writeln(b[i,m]); - вывод второго масива
end. - конец исполняемой части