Напишите процедуру, которая выводит на экран запись числа меньшего, чем 16^4=65536 в виде 4 знаков в шестнадцатиричной системе счисления

Вприложениях смотри. и насчет предыдущей . используй текст этой, т.к. та не правильна, в этой  изменяй следующее: osnovanie это система от 2 до 16 и вот здесь 16 для числа, 4 для степени. begin stepeni(16,4); end.

Const   n = 6; // число строк   m = 6; // число столбцов var   a: array[1..n, 1..m] of integer;   // основной массив   rext: array[1..n, 1..2] of integer; // номера столбцов с min и max в строках   cext: array[1..2, 1..m] of integer; // номера строк с min и max в столбцах   i, j, amin, amax: integer; begin   // заполняем массив а случайными числами   randomize;   writeln('исходный массив');   for i : = 1 to n do   begin       for j : = 1 to m do       begin           a[i, j] : = random(100) - 50;           write(a[i, j]: 4);       end;       writeln;   end;   // заполняем массив rext n x 2   for i : = 1 to n do   begin       amin : = 10000;   //заведомо больше a[i,j]       amax : = -10000; //заведомо меньше a[i,j]       for j : = 1 to m do       begin           if amin > a[i, j] then begin               amin : = a[i, j]; rext[i, 1] : = j           end;           if amax < a[i, j] then begin               amax : = a[i, j]; rext[i, 2] : = j           end       end;   end;   // заполняем массив cext 2 x m   for j : = 1 to m do   begin       amin : = 10000;   //заведомо больше a[i,j]       amax : = -10000; //заведомо меньше a[i,j]       for i : = 1 to n do       begin           if amin > a[i, j] then begin               amin : = a[i, j]; cext[1, j] : = i           end;           if amax < a[i, j] then begin               amax : = a[i, j]; cext[2, j] : = i           end       end   end;   writeln;   // ищем седловые точки   writeln('*** седловые точки ***');   for i : = 1 to n do   begin       j : = rext[i, 1];       if cext[2, j] = i then           write('[', i, ',', j, '] ')       else begin           j : = rext[i, 2];           if cext[1, j] = i then               write('[', i, ',', j, '] ')       end   end;   writeln end. тестовое решение исходный массив   10  25  38  38   45  32  42  36   -39  -6    9  48   -25 -37  40  30 *** седловые точки *** [2,2]

Const   n = 5; var   i, j: integer;   a: array[1..n, 1..n] of integer;   min, max: array[1..n] of integer; begin   writeln('исходный массив: ');   for i : = 1 to n do begin     for j : = 1 to n do begin       a[i, j] : = random(10);       write(a[i, j] : 3);       if (j = 1) or (max[i] > a[i, j]) then max[i] : = a[i, j];       if (i = 1) or (min[j] < a[i, j]) then min[j] : = a[i, j];     end;     writeln;   end;   writeln('седловые точки: ');   for i : = 1 to n do     for j : = 1 to n do       if max[i] = min[j] then writeln('[', i, '; ', j, ']'); end.