Произведение и сумма элементов матрицы

Найти произведение элементов матрицы А(5,5) без остатка делящихся на 3, и сумму чётных элементов матрицы.

program matr1;
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,k,g,P,S:integer;
begin;
clrscr;
for i:=1 to n do
for j:=1 to n do
begin
readln(a[i,j]); //набираем данные в матрицу
end;
clrscr;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3); //выводим ее на экран
writeln;
end;
readln;
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
begin //проверяем целочисленность деления на 3
if a[i,j] mod 3 = 0 then k:=k+1;
end;
if k=0 then //если их нет, считаем произведение Р
begin
P:=1;
for g:=1 to n do
begin
P:=P*a[i,g];
end;
writeln(P); // Р
end;

for i:=1 to n do
begin
k:=0;
for j:=1 to n do
begin //проверяем четность элементов матрицы
if a[i,j] mod 2 = 0 then k:=k+1;
end;
if k=0 then //если их нет, считаем сумму S
begin
S:=1;
for g:=1 to n do
begin
S:=S+a[i,g];
end;
writeln(S); // S
end;

end;
end;
readln;
end.

Вот вариант мой, но я не уверена в правильности, подкорректируйте, пожалуйста, чтоб наверняка

0

работает??? я не проверял

2