Дана матрица а(m,n).вычислите сумму тех элементов,которые делятся на 3 без остатка. составьте, , программу!

Var arr:array[1..100,1..100] of longint;
n, m, i, j, k:longint;
begin 
read(n, m); 
for i:= 1 to n do   
for j := 1 to m do     
begin     
read(arr[i][j]);     
if (arr[i][j] mod 3 = 0) then       
 k := k + arr[i][j];     
end;  writeln(k);
end.