Дан массив из n целых элементов и целое число b. Сколько раз в массиве встречается число b?

program zz1;

const n=20; / /задаем количество элементов в массиве

var mas:array[1 ... n] of integer;

i, k, b:integer;

begin

read (b); / /вводим заданное число

for i:=1 to n do

mas[i]:=random (21) + 1; / /вводим числа в массив рандомно от 1 до 20

for i:=1 to n do

write (mas[i],' '); / /выводим числа из массива на экран

writeln; / /переходим на новую строку для вывода

for i:=1 to n do

if mas[i]=b then k:=k+1; / /проверяем, если число из массива равно заданному, то считаем это число

write ('количество элементов равных заданному числу - ', k); / /выводим ответ

end.