Определи количество повторений следующих циклов ( за пример) А) for i in range(9):
Б) for j in range(1,6):
В

Я уже отвечал на подобный вопрос.
Эту колдунью зовут Кодировка КОИ-8. Таблица кодирования:
А-Ю, Б-А, В-Б, Г-Ц, Д-Д, Е-Е, Ж-Ф, З-Г, И-Х, Й-И, К-Й, Л-К, М-Л,
Н-М, О-Н, П-О, Р-П, С-Я, Т-Р, У-С, Ф-Т, Х-У, Ц-Ж, Ч-В, Ш-Ь,
Щ-Ы, Ъ-З, Ы-Ш, Ь-Э, Э-Щ, Ю-Ч, Я-Ъ, Ё-╦
Таблица построена так. Слева стоят буквы по русскому алфавиту, а справа русские буквы, соответствующие английскому алфавиту.
@ - Ю (код 40), A - А (41), B - Б, C - Ц, D - Д, E - E, F - Ф, и т.д.
Буква Ё - 33-ья в алфавите, она выбивается из ряда в 32 буквы, поэтому превращается не в букву, а в элемент псевдографики.
И еще меняется регистр, 1-ая буква маленькая, остальные большие.
Эти имена по порядку: 
Глеб, Степан, Иван, Фёдор, Кирилл, Леонид

 

 Видимо имеется ввиду выводящий максимальны элемент этого массива

 

 В данном примере матрица формируется при случайных чисел 

 

 

program MatrixMax;

Uses Crt;
   type matrix=array[1..4,1..4] of real;

   var m:matrix;

          max:real;

 

 

{Порождение матрицы случайным образом}
procedure Auto;
var i,j:integer;
begin
    randomize;
    for i:=1 to 4 do
           begin
               for j:=1 to 4 do
                     begin
                         m[i,j]:=25+random(21);
                     end;
             end;
end; 

  

{Вывод матрицы на экран} 

 

procedure PrintMatrix(mas:matrix );
var j,k:integer;
begin
 for k:=1 to 4 do
       begin
           for j:=1 to 4 do
              begin
                 write(mas[k,j]:7:2);
             end;
    writeln;
       end;

end; 

 

 

 

 {Нахождение максимального элемента}
procedure Мax;
var i,j:integer;
begin
    max:=m[1,1]
    for i:=1 to 4 do
           begin
               for j:=1 to 4 do
                     begin
                        if (max<m[i,j]) then max:=m[i,j];
                     end;
             end;
end;

 

 

 begin

      Clrscr;

       Auto;

       PrintMatrix;

       Max;

        writeln;

        writeln('Максимальный элемент матрицы: ',max);

 

 

 end.