Нарисуйте в пеинте рисунок на тему информатика глазами детей

вот информатика глазами детей сам когда то за это 5 получил

// pascalabc.net 3.0, сборка 1160 от 05.02.2016 procedure matrixprint(a: array[,] of integer); begin   for var i: =0 to length(a,0)-1 do begin       for var j: =0 to length(a,1)-1 do print(a[i,j]);       println       end end; function rowsum(a: array[,] of integer): array of integer; // суммы построчно begin   setlength(result,length(a,0));   for var i: =0 to length(a,0)-1 do begin       var s: =0;       for var j: =0 to length(a,1)-1 do           s+=a[i,j];       result[i]: =s       end end; function colsum(a: array[,] of integer): array of integer; // суммы по столбцам begin   setlength(result,length(a,1));   for var j: =0 to length(a,1)-1 do begin       var s: =0;       for var i: =0 to length(a,0)-1 do           s+=a[i,j];       result[j]: =s       end end; begin   var n: =readinteger('n=');   var m: =readinteger('m=');   var x: =matrixrandom(n,m,1,5);   writeln('исходный массив');   matrixprint(x);   var srow: =rowsum(x);   var ir: =0;   for var i: =1 to srow.length-1 do       if srow[i]> srow[ir] then ir: =i;   writelnformat('максимум {0} в строке {1}',srow[ir],ir+1);   var scol: =colsum(x);   var ic: =0;   for var i: =1 to scol.length-1 do       if scol[i]< scol[ic] then ic: =i;   writelnformat('минимум {0} в колонке {1}',scol[ic],ic+1) end. тестовое решение: n= 8 m= 5 исходный массив 3 3 3 2 4 2 4 2 2 1 1 1 2 4 5 5 1 4 1 5 4 2 3 3 4 2 3 2 4 2 5 3 4 1 1 4 3 4 4 2 максимум 17 в строке 8 минимум 20 в колонке 2

Const   n = 5;   m = 5; var   a: array[0..n, 0..m] of integer;   i, j, imin, jmax: integer; begin   writeln('матрица: ');   for i : = 1 to n do   begin       for j : = 1 to m do       begin           a[i, j] : = random(5) + 1;           a[0, j] : = a[0, j] + a[i, j];           a[i, 0] : = a[i, 0] + a[i, j];           write(a[i, j] : 3);       end;       writeln;   end;   jmax : = 1;   for i : = 2 to n do       if a[i, 0] > a[jmax, 0] then           jmax : = i;   imin : = 1;   for j : = 2 to m do       if a[0, j] < a[0, imin] then           imin : = j;   writeln('номер столбца: ', imin);   writeln('номер строки: ', jmax); end.