Элементы заданной матрицы A(m,n)-целые числа. Напишите программу вычисляющую сумму и произведения элементов, которые кратны 3 или 2.

Выбивает ошибку if (a[i,j] mod 3)=0 or ((a[i,j] mod 2)=0) then begin sum:=sum+a[i,j]); на слове then .Я программу как в точности как у вас скопировал.

var  a                      : array [1..100,1..100] of longint;  n,m,i,j,sum,mnj : longint;begin  readln(n,m);  for i:=1 to n do     for j:=1 to m do read(a[i,j]);  sum:=0;   mnj :=1; for i:=1 to n do     for j:=1 to m do       if (a[i,j] mod 3)=0 or ((a[i,j] mod 2)=0) then begin sum:=sum+a[i,j]); mnj:=mnj*a[i,j]; end;  writeln(sum,' ',mnj); end.