Напишите программу, которая находит в массиве количество элементов, равных заданному значению Х .

program red;vara:array[1..100] of integer;b,c,i,n:integer;beginwriteln('Vvedite 4islo');readln(b);writeln('Vvedite razmer massiva');readln(n);c:=0;for i:=1 to n doa[i]:=random(10);for i:=1 to n doif a[i]=b then c:=c+1;writeln(c);end.