Снова прошу подмоги) Pascal.

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

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  Writeln('Min = ',a.Where((x,i)-gt;i.IsEven).Min)
end.

Пример
n= 15
30 15 -75 52 54 -99 73 30 -30 2 -97 -94 -46 15 -90
Min = -97

begin
  var n:=ReadInteger('n=');
  var s:=BigInteger(0);
  for var i:=1 to n do begin
    var p:=BigInteger(1);
    for var j:=i to i*i do p*=j;
    s+=p
    end;
  Writeln(s)
end.

Пример
n= 5
646300418475611547829465

begin
  var a:=ArrRandom(25,-99,99); a.Println;
  var b:=ArrRandom(ReadInteger('n='),-99,99); b.Println;
  Writeln('Скрещение:'); a.Intersect(b).Println;
  Writeln('Объединение слиянием:'); (a+b).Println;
  Writeln('Соединение как множества:'); (a+b).Distinct.Println;
end.

Пример
63 39 -98 23 -66 -66 -88 2 -39 35 -56 -59 60 -97 -16 -90 67 37 -99 -65 48 -31 -36 -72 40
n= 15
-18 89 47 51 -55 -98 77 -42 -67 -44 -79 -20 -57 -88 -9
Пересечение:
-98 -88
Соединение слиянием:
63 39 -98 23 -66 -66 -88 2 -39 35 -56 -59 60 -97 -16 -90 67 37 -99 -65 48 -31 -36 -72 40 -18 89 47 51 -55 -98 77 -42 -67 -44 -79 -20 -57 -88 -9
Соединение как огромного количества:
63 39 -98 23 -66 -88 2 -39 35 -56 -59 60 -97 -16 -90 67 37 -99 -65 48 -31 -36 -72 40 -18 89 47 51 -55 77 -42 -67 -44 -79 -20 -57 -9