Дана целочисленная матрица А размером М х N, где М и N вводятся с клавиатуры. Сформировать одномерный массив В, где В[i] равно сумме элементов кратных
трем в i-ой строке. Если таких элементов нет, то В[i] равно -10.
Двумерные массивы

Var  A     : array[1..100,1..100] of Integer;  B     : array[1..100] of Integer;  M,N,s,i,j : Integer;Begin  Readln(M,N);  For i:=1 to M do  Begin    s:=0;    For j:=1 to N do    Begin      A[i,j]:=Random(100);      Write(A[i,j]:4);      If A[i,j] mod 3 = 0 then s:=s+A[i,j];    end;    If s=0 then B[i]:=-10 else B[i]:=s;    Writeln('           ',B[i]);  end;end.