выбрать правильный ответ

При оформлении страницы с иллюстрациями следует придерживаться следующих правил:

1Не следует размещать рисунок посередине текста.

2Если рисунок занимает более 3/4 ширины текста, то лучше выбрать расположение текста сверху и снизу. В этом случае можно установить для рисунка положение «в тексте» и поместить его на отдельной строке (в пустом абзаце).

3Если рисунок занимает более 2/4 ширины текста, то лучше выбрать расположение текста снизу. В этом случае можно установить для рисунка положение «в тексте» и поместить его на отдельной строке (в пустом абзаце).

4Следует размещать рисунок посередине текста.

Var
  i,j,k,ix,jx,kx:integer;
  s:string;

function per(x:integer):string;
begin
case x of
  10: result:='A';
  11: result:='B';
  12: result:='C';
  13: result:='D';
  14: result:='E';
  15: result:='F';
  else
    str(x,result);
  end;
end;

begin
for i:=1 to 15 do
  for j:=0 to 15 do
    for k:=0 to 15 do
      if 2*(i*16*16+j*16+k)=j*16*16+k*16+i then
         begin
         ix:=i;
         jx:=j;
         kx:=k;
         end;
s:=per(ix)+per(jx)+per(kx);
writeln(s);     
end. 

В результате работы программы получаем ответ.
ответ: 6DB

На паскале, если не на паскале нужно, то укажите какой необходим.

const m = 5;
         n = 4;
var i, j, max: integer;
     a: array[1..m, 1..n] of integer;
begin
  writeln('Исходный массив: ');
  for i := 1 to m do begin
    for j := 1 to n do begin
      a[i, j] := random(20);
      write(a[i, j]:3);
      if(a[i, j] > max) then max := a[i, j];
    end;
    writeln;   
  end;
  writeln('Максимальный элемента: ', max);
  writeln('Конечный массив: ');
  for i := 1 to m do begin
    for j := 1 to n do begin
      if(a[i, j] mod 2 = 0) then a[i, j] := max;
      write(a[i, j]:3);
    end;
    writeln;
  end;
end.