Заполните случайными числами в диапазоне от 1 до 50 массив B [1:20]. Какое количество раз встречается число 4 в данном массиве? Вывести сообщение на экран: Число 4 встречается в массиве раз. Если такого числа нет, то вывести на экран сообщение об этом

// PascalABC.Net

var a: array [1..20] of integer;

i, count: integer;

begin

   for i := 1 to 20 do

   begin

       a[i] := random(1, 50);

       write(a[i]:4);

   end;

   writeln();

   count := 0;

   for i := 1 to 20 do

   begin

       if a[i] = 4 then

           inc(count);

   end;

   writeln('Число 4 встречается в массиве ', count, ' раз.');

end.