Массив М[1..n] задан на интервале [-10;12]. Найти минимальный из положительнх элементов и вывести его порядковый номер.

Алфавит у нас состоит из трех букв (Б,У,М). Длина ряда 4 буквы. Количество возможных слов вычисляется по формуле N^m(н в степени м), где N - это длина алфавита, а m - длина ряда. Получаем 3^4=81. Дальше нужно исключить случаи, когда Есть три идущие буквы подряд, рассмотрим все случаи. 
1.Когда все буквы в слове одинаковые (, , );
2.Когда есть три буквы одинаковые (БББУ,УБББ,БББМ,МБББ, БУУУ,УУУБ,МУУУ,УУУМ,МММБ,БМММ,УМММ,МММУ.).
Тобишь всего исключений 12+3=15.
Вычитаем из количества всех вариантов 81-15=66.
ответ:66 различных слов.  

//Pascal ABC.NET v3.1 сборка 1172

var
  ar: array of array of integer;
  n, m, i, j: integer;

begin
  read(n, m);
  setlength(ar, n);
  for i := 0 to n - 1 do
    setlength(ar[i], m);
  writeln('Enter matrix:');
  for i := 0 to n - 1 do
  begin
    writeln;
    for j := 0 to m - 1 do
      read(ar[i, j]);
  end;
  writeln;
  writeln('First matrix:');
  for i := 0 to n - 1 do
  begin
    writeln;
    for j := 0 to m - 1 do
      write(ar[i, j]:4);
  end;
  writeln;
  writeln('Final matrix:');
  for i := 0 to n - 1 do
  begin
    writeln;
    for j := 0 to m - 1 do
    begin
      if ar[i, j] mod 2 = 0 then ar[i, j] := ar[i, j] div 2;
      write(ar[i, j]:4);
    end;
  end;
end.

Пример ввода:
2
3
Enter matrix:

1
2
3

4
5
6
Пример вывода:
First matrix:

   1   2   3
   4   5   6
Final matrix:

   1   1   3
   2   5   3