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

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