// написанное после двух косых черт - это пояснения. из программы удалить
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.