ИНФОРМАТИКА ЕГЭ задание много !

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 подсчитывает количество пар фильтр.