Программа Pascal. В диапазоне чисел, введеных клавиатурой, выбрать все нечетные числа и...

Question

Программа Pascal. В диапазоне чисел, введеных клавиатурой, выбрать все нечетные числа и посчитать их кол-во. Если их больше 10, то показать наибольшее из них, иначе - показать сумму четных чисел.

Answer 1

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

begin
  var (a,b):=ReadInteger2('Введите целочисленные границы диапазона:');
  var s:=Range(a,b).Where(t->t.IsOdd);
  if s.Count>10 then s.Max.Println
  else Range(a,b).Where(t->t.IsEven).Sum.Println
end.