Фермерское хозяйство занимается разведением рыбы. Каждый месяц вылов рыбы увеличивается на 12%. При этом нельзя, чтобы количество рыбы в пруду было ниже чем k тонн. Сколько месяцев хозяйство может увеличивать улов рыбы без последствий, если сейчас в пруду n тонн рыбы.​

Const
  m=10;
var
  R:array[1..m,1..m] of integer;
  i,j,t,p,q:integer;
begin
  Write('Введите номер строки (1..10) для перестановки: ');
  Read(q);
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to m do begin
    for j:=1 to m do begin
      R[i,j]:=Random(90)+10;
      Write(R[i,j]:3);
      end;
    Writeln
  end;
  p:=1;
  for i:=2 to m do
    if R[i,i]<R[p,p] then p:=i;
  if p<>q then begin
    Writeln('Результирующий массив');
    for j:=1 to m do begin
      t:=R[p,j]; R[p,j]:=R[q,j]; R[q,j]:=t
      end;
    for i:=1 to m do begin
      for j:=1 to m do Write(R[i,j]:3);
      Writeln
      end
    end
end.      
       
Пример
Введите номер строки (1..10) для перестановки: 3
Исходный массив
 50 86 52 85 96 69 44 51 20 77
 55 79 39 73 98 74 65 65 63 80
 64 89 83 55 98 74 85 63 90 52
 37 42 64 84 66 78 67 31 56 34
 69 18 34 48 42 44 12 91 67 47
 72 19 14 22 53 61 13 97 87 31
 83 80 61 67 50 22 25 55 16 29
 16 44 19 39 20 55 65 44 23 63
 72 93 96 52 79 27 38 52 40 15
 75 70 44 34 50 88 57 66 97 29
Результирующий массив
 50 86 52 85 96 69 44 51 20 77
 55 79 39 73 98 74 65 65 63 80
 83 80 61 67 50 22 25 55 16 29
 37 42 64 84 66 78 67 31 56 34
 69 18 34 48 42 44 12 91 67 47
 72 19 14 22 53 61 13 97 87 31
 64 89 83 55 98 74 85 63 90 52
 16 44 19 39 20 55 65 44 23 63
 72 93 96 52 79 27 38 52 40 15
 75 70 44 34 50 88 57 66 97 29

PascalABC.Net версия 3.2

begin
  var a:=ArrRandom(10,0,100); a.Println;
  Writeln('Количество пар равно ',
    a.Pairwise.Where(x->((x.Item1+x.Item2) mod 6<>0)
    and (x.Item1*x.Item2<1000)).Count)
end.

Пример работы программы
84 11 3 74 61 62 52 97 99 35
Количество пар равно 3

Пояснения.
ArrRandom создает нужный массив, Println выводит его на экран.
Расширение PairWise порождает последовательность из пар соседних элементов,
Where образует фильтр этих пар с необходимыми условиями, а Count подсчитывает количество пар фильтр.