Написать блок-схему алгоритма подсчета введенных с клавиатуры чисел, кратных трем

1) uses crt; const n=5; m=7; var i,j,s: integer; a: array[1..n,1..m]of integer;       begin         randomize;         clrscr;                       for i: =1 to n do                        begin                                for j: =1 to m do                                    begin                                                  a[i,j]: =random(40)-19;                                                   write(a[i,j]: 4);                                     end;                                   writeln;                         end; writeln;           for j: =1 to m do                      begin                                  s: =0;                                   for   i: =1 to n do                                              s: =s+a[i,j];                                   writeln ('j: ',j,' ', s);                           writeln;                     end; end.

{uses crt; } {для древних сред паскаль, работающих в dos-режиме, снять комментарии   в операторах uses, clrscr, readkey } const   n = 10; var   a: array[1..n, 1..n] of integer;   i, j, min, max: integer; begin   randomize;   {clrscr; }   writeln('исходный массив');   max: =-100; min: =100;   for i : = 1 to n do   begin       for j : = 1 to n do       begin           a[i, j] : = random(81)+10;           write(a[i,j]: 3);           if max< a[i,j] then max: =a[i,j]           else               if min> a[i,j] then min: =a[i,j]       end;       writeln   end;   writeln('min=',min: 2,', max=',max: 2);   {readkey} end. тестовое решение: исходный массив   38 43 63 12 80 87 22 82 39 52   88 82 79 35 68 67 66 63 84 85   78 48 46 26 63 71 32 71 86 45   11 38 55 12 75 85 68 13 64 88   87 16 27 26 74 34 88 76 26 25   74 45 17 18 43 81 88 46 40 18   65 41 87 85 51 59 36 76 51 73   90 63 89 87 88 71 31 29 43 38   74 47 55 70 61 56 31 46 60 84   88 31 64 56 32 55 19 32 66 24 min=11, max=90