Написать на паскале Дана матрица 3 на 3. Найти количество элементов матрицы кратных 5

Program al;

const n=3;

var a:array [1 ... n, 1 ... n] of integer;

k, i, j:integer;

begin

Writeln ('vvedite massiv:') ;

For i:=1 to n do

begin

For j:=1 to n do

begin

read (a[i, j]) ;

end;

Writeln;

end;

k:=0;

for i: = 1 to n do

for j: = 1 to n do

if a[i, j] mod 5=0 then inc (k) ;

writeln ('kolicestvo cisel kratnih 5=', k) ;

readln;

end.