Заполнить двумерный массив F размером X*Y целыми случайными числами из промежутка [-130;130] и вывести этот массив на экран. Определить количество чисел некратных 5 в заданном массиве. Расписать этапы. Составить блок-схему. Выполнить трассировку всех этапов для массива размером 2*3. Написать программу. СРОЧНО !!!!

program massive;

const

x=2;

y=3;

var  

 f: array [1..x,1..y] of integer;

 i,j,s:integer;

begin

 randomize;

 s:=0;

 for i:=1 to x do

   begin

     for j:=1 to y do

       begin

         f[i,j]:=random(-130,130);

         write(f[i,j],' ');

       end;

     writeln;

   end;

 for i:=1 to x do

   for j:=1 to y do

     if f[i,j] mod 5 <> 0 then  

       s:=s+1;

 if s=0 then  

   writeln('Все элементы fкратны 5')

 else  

   writeln('Элементов не кратных 5: ',s);

end.

1) Заполняем массив случайными элементами

2) Проверяем каждый элемент на кратность  5

3) И считаем их количество