Сколько в матрице есть K-значных чисел, сумма цифр каждого из которых кратна R - PascalABC.NET

Формулировка задачи:

Напишите программу, которая определяет, сколько в матрице есть K -значных чисел, сумма цифр каждого из которых кратна R . Входные данные В первой строке записаны через пробел размеры матрицы: количество строк N и количество столбцов M ( 1 ≤ N , M ≤ 100 ). В следующих N строках записаны строки матрицы, в каждой – по M натуральных чисел, разделённых пробелами. Затем в отдельной строке вводятся числа K и R . Выходные данные Программа должны вывести одно число – количество K -значных чисел, сумма цифр каждого из которых кратна R . входные данные 5 5 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 2 3 выходные данные 5

Решение задачи: «Сколько в матрице есть K-значных чисел, сумма цифр каждого из которых кратна R»

Листинг программы

var n,m,k,r,c,c2,q,sum,count:integer;
arr:array [,] of integer;
begin;
count:=0;
readln(n,m);
setlength(arr,n,m);
for var i:=0 to n-1 do begin;
for var j:=0 to m-1 do begin;
read(arr[i,j]);
end;
end;
readln(k,r);
for var i:=0 to n-1 do begin;
for var j:=0 to m-1 do begin;
c:=arr[i,j];
c2:=arr[i,j];
q:=0;
while c>0 do begin;
c:=c div 10;
q+=1;
end;
sum:=0;
while c2>0 do begin;
sum+=c2 mod 10;
c2:=c2 div 10;
end;
if (sum mod r=0) and (q=k) then count+=1;
end;
end;
writeln(count);
end.

Объяснение кода листинга программы

В начале программы объявляются переменные: n, m, k, r, c, c2, q, sum, count (номер 1)
Переменная count инициализируется значением 0 и используется для подсчета количества K-значных чисел (номер 2)
Ввод размера матрицы n и m с помощью функции readln(n,m) (номер 3)
Создание двумерного массива arr размером n на m с помощью функции setlength(arr,n,m) (номер 4)
Ввод значений матрицы arr с помощью двух вложенных циклов for и функции read(arr[i,j]) (номер 5)
Ввод значения k и r с помощью функции readln(k,r) (номер 6)
Два вложенных цикла for используются для проверки каждого элемента матрицы arr на условие (номер 7)
Внутри циклов для каждого элемента матрицы arr вычисляется количество цифр c и сумма цифр c2 (номер 8)
Если сумма цифр c2 кратна r и количество цифр c равно k, то переменная count увеличивается на 1 (номер 9)
По завершении циклов, программа выводит значение переменной count с помощью функции writeln(count) (номер 10)
Код завершается (номер 11)