Срочно, пожайлуста!!!! 3) Элементы двумерного массива С(10,10) – целые случайные числа из интервала [-5,5]. Вывести массив. Найти произведение положительных элементов матрицы, кратных 5

uses crt; var c: array [1..10, 1..10] of integer;      p,n,i,j: integer;      find:boolean; begin   clrscr;   randomize;   n:=10; P:=1;   find:=false;{find - положительных элементов в матрице, кратных 5 нет}   for i:=1 to n do   begin   for j:=1 to n do    begin      c[i,j]:=-5+random(11);      if (c[i,j]>0) and (c[i,j] mod 5 =0) then       begin        p:=p*c[i,j];find:=true;       end;      write(c[i,j]:6);    end;   writeln;   end; if find then   writeln('произведение', p:7) else   writeln('положительных элементов в матрице, кратных 5 нет') end.