Дан вещественный массив А(10,25). Получить произведение элементов кратных 3.

[Elvina]

Дан вещественный массив А(10,25). Получить произведение элементов кратных 3.

Посмотрите пожалуйста, что-то программка не запускается... Срочно нужна((( Спасибо большое заранее! Может увидите ошибку какую-нибудь...

const
n1=10;
n2=25;
var
s,i,j: integer;
m: array [1..n, 1..n2] of integer;
begin
randomize;
s:=0;
for i:=1 to n do
for j:=1 to n2 do
m[i,j]:=(-100+random(100+100));
writeln('Массивы');
for i:=1 to n1 do
begin
for j:=1 to n2 do
write (m[i,j], ' ');
writeln;
end;
writeln;
for i:=1 to n1 do
for j:=1 to n2 do
if m[i,j];
writeln ('s=',s);
end.

[weech]

s:=1;
...
if m[I,J] mod 3 = 0 then s:=s*m[I,J];