Написать на паскале Дана матрица 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.