Написать программу в бейсике

// pascalabc.net 3.2, сборка 1443 от 19.05.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество колонок в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var s: =a.elementswithindexes;   var max: =s.maxby(x-> x[2]);   var min: =s.minby(x-> x[2]);   a.swaprows(max[0],min[0]);   writeln('*** результирующий массив ***');   a.println(4) end. пример количество строк в массиве: 6 количество колонок в массиве: 9 *** исходный массив [6,9] ***   42 -66 -81  85  62 -36 -54  54  93   80  32 -85 -44  54 -99  72  53  59   20  50  27  98 -40  43 -52 -48 -92   37 -86 -53 -81  85  16 -31 -37  93   36  75  76 -95  38 -15  29 -86  97   12  94 -38 -52  86 -13 -99  91    1 *** результирующий массив ***   42 -66 -81  85  62 -36 -54  54  93   20  50  27  98 -40  43 -52 -48 -92   80  32 -85 -44  54 -99  72  53  59   37 -86 -53 -81  85  16 -31 -37  93   36  75  76 -95  38 -15  29 -86  97   12  94 -38 -52  86 -13 -99  91    1

Попробуй, может сработает) program num32; var   nums, i, min, max, a, i2, i3, sum: integer; begin   min : = 7;   max : = 0;   sum : = 0;     readln(nums);       while nums < > 0 do   begin             if mod 10) > max)) then begin           max : = nums mod 10;       end;                         if mod 10) < min)) then begin           min : = nums mod 10;                           end;       nums : = nums div 10;         end;         if (min > max) then begin             for i2 : = max to min do           sum : = sum + i2;     end;     if (max > min) then begin       for i2 : = min to max do           sum : = sum + i2;   end;     writeln(sum);   end.