1 задание: Для приведенной ниже числовой
последовательности написать программу для вычисления числа:
2 задание: Постановка задачи. Написать оптимальную (по числу
арифметических операций) программу для вычисления приведенной ниже
функции. Построить график данной функции на отрезке [a; b], а также график
касательной к ней в точке с абсциссой хо.
3 задание: Постановка задачи. Затабулировать функцию двух переменных z(x,y)
внутри квадрата xmax ≥ x ≥ xmin и ymax ≥ у ≥ ymin и области существования
функции z. Шаги табуляции Δх = Δу. Результаты вывести на рабочий лист
Excel. В точках, где функция не определена вывести 4 символа «*». Выделить
различным цветом точки, в которых функция определена и точки, в которых
функция не определена.

ВАРИАНТ 5( скрины заданий по порядку от 1 до 3

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