Pascal. Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10] и найти сумму элементов кратных 3. С объяснением пожалуйста!

// написанное после двух косых черт - это пояснения. из программы удалить program massiv_summa; var A: array[1..100,1..100] of integer; //предполагаю, что 1<=N<=100 иначе надо измнить параметры массива var N, Sum: integer; var i, j: byte; begin writeln ('введите N'); readln (N); //ввод значения N c клавиатуры Sum:=0; // Определяем начальное значение суммы чисел массива, кратных 3     for i:=1 to N do begin // внешний цикл перебирает строки массива      for j:=1 to N do begin //внутренний цикл перебирает ячейки в каждой строке        A[i,j]:=random(-10,10); //элементу массива присваивается случайное значение       if (A[i,j] mod 3)=0 // если остаток от деления числа на 3 равен нулю (кратно 3)           then Sum:=Sum+A[i,j]; //если кратно 3, то прибавляем его к сумме            //если не кратно 3, то ничего не делаем. т.е. оператор else отсутствует                   //Для проверки можно вывести весь массив, например:                  write (A[i,j]:4);      end;      writeln //для вывода новой строки массива с новой строки   end; writeln ('Сумма чисел кратных 3 равна ',Sum); end.