Программа прочитает от пользователя 10 чисел, после этого выведет ** экран второе самое...

Question

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

Answer 1

// 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

Answer 2

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

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

Comments

Всё бы хорошо, но токен var неуместен здесь...