Зарисовать схему состава аппаратного обеспечения пк

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.

Честно, не поняла ваш код вообще. почему нет цикла? предлагаю свое решение: 1)cначала заполняем массив случайными числами от 2 до 5 (включительно) 2)потом выводим его (для проверки) 3) потом считаем оценки. но сначала нужно обнулить переменные( в самом начале это делали), а то получится кака (: program n_0547847; var       b, c, d, f, i: integer;       a: array [1..20] of integer; begin; randomize; b: =0; c: =0; d: =0; f: =0; for i: =1 to 20 do begin     a[i]: =random(4)+2;       write(a[i],' ');   end;   writeln; for i: =1 to 20 do begin       if a[i]=2 then   b: =b+1;       if a[i]=3 then   c: =c+1;       if a[i]=4 then   d: =d+1;       if a[i]=5 then     f: =f+1; end; writeln('двоек: ',  b);   writeln('троек: ', c);   writeln('четверок: ',d); writeln('пятерок: ',f); end.