Дан двухмерный массив 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.