Программа прочитает от пользователя 10 чисел, после этого выведет на экран второе самое большое число. пример: после ввода: 5 44 80 1 8 100 11 90 2 6 программа выведет: 90

Begin
var a:=ReadArrInteger('Введите 10 чисел:',10);
var m:=a.Where(x->x<a.Max).Max;
writeln('Второй максимум = ',m);
end.

Пример:
Введите 10 чисел:
5
44
80
1
8
100
1
90
2
6
Второй максимум = 90

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

begin
  Writeln(ReadArrInteger(10).OrderByDescending(t->t).Skip(1).First)
end.

Пример
5 44 80 1 8 100 11 90 2 6
90