1. Решите информатики.
1 скрин это сам пример на втором скрине как решать ну это как пример на то чтобы вы так же сделали

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  var aInd:=a.IndexesOf(t->t.IsOdd and (t mod 7=0));
  if aInd.Count=0 then Writeln('Нет нечетных чисел, кратных 7')
  else begin
    Write('Номера нечетных элементов, кратных 7: ');
    aInd.Select(i->i+1).Println(',')
    end
end.

Пример
n= 20
-38 -50 51 -90 66 -7 49 37 -91 2 69 44 -83 73 68 -99 72 -18 80 32
Номера нечетных элементов, кратных 7: 6,7,9

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a,b,c:integer; // цифры числа n = abc
  var (i,j,k):=(1,2,3); // места цифр a,b,c, расположенных по неубыванию
  var s1:array[1..3] of string:=('первая','вторая','третья');
  var s2:array[1..3] of string:=('первой','второй','третьей');
  a:=n div 100;
  b:=(n div 10) mod 10;
  c:=n mod 10;
  // сортировка по неубыванию
  if a>b then begin Swap(a,b); Swap(i,j) end;
  if b>c then begin
    Swap(b,c); Swap(j,k);
    if a>b then begin Swap(a,b); Swap(i,j) end
    end;
  if c>b then Writeln(s1[k],' цифра больше остальных')
  else
    if b>a then Writeln(s1[j],' и ',s1[k],' цифры больше ',s2[i])
    else Writeln('Все три цифры одинаковы')
end.

Примеры
n= 638
третья цифра больше остальных

n= 583
вторая цифра больше остальных

n= 707
первая и третья цифры больше второй

n= 444
Все три цифры одинаковы