В массиве 10 на 5 заполненном случайными двузначными числами, посчитать количество чисел кратных 3, и вывести эти числа в строчку.

Const   N = 10;   M = 5;Var   A:array[1..N,1..M] of byte;   i,j,k:integer;BeginRandomize;WriteLn('Исходный массив:');For i:= 1 to N do    Begin    For j:= 1 to M do        Begin        A[i,j]:=random(90)+10;        Write(A[i,j]:3,' ')        End;    WriteLn    End;Write('Числа, кратные трём:');For i:= 1 to N do    For j:= 1 to M do        if A[i,j] mod 3 = 0 then           Begin           Write(' ',A[i,j]);           k:=k+1           End;WriteLn;WriteLn('Их количество: ',k)End.Пример работы программы:Исходный массив: 89  38  43  42  57  43  23  71  61  82  77  80  44  69  92  35  33  97  48  78  58  38  58  88  62  49  43  75  14  68  20  19  18  43  47  13  84  14  46  86  26  22  87  69  75  68  84  88  38  49 Числа, кратные трём: 42 57 69 33 48 78 75 18 84 87 69 75 84Их количество: 13