Дан двухмерный массив 10 на 10. Найти сумму всех элементов. Кол во элементов коатных 5

Program z;

var

p, s, n, m:integer;

a:array [1 ... 10,1 ... 10] of integer;

begin

writeln ('Введите кол-во столбцов') ;

readln (n) ;

writeln ('Введите кол-во строк') ;

readln (m) ;

writeln ('Ввод матрицы') ;

for var i:=1 to n do

for var j:=1 to m do

begin

write ('a[', i,',', j,']=') ;

readln (a[i, j]) ;

end;

writeln ('Вывод матрицы') ;

for var i:=1 to n do

begin

for var j:=1 to m do

write (a[i, j],' ') ;

writeln;

end;

s:=0;

for var i:=1 to n do

for var j:=1 to m do

begin

s:=s+a[i, j];

end;

p:=0;

for var i:=1 to n do

for var j:=1 to m do

if a[i, j] mod 5 = 0 then

begin

inc (p) ;

end;

writeln ('Сумма элементов - ', s) ;

writeln ('Кол-во элементов, кpатных 5 - ', p) ;

end.