Не нечетное число - это четное число, поэтому:
не(x - нечетное) равносильно (x - четное)
x>=10 - в данное неравенство входят все x из промежутка [10;+oo), т.е на данном промежутке неравенство истинно. А ложно оно соотвественно на (-oo;10). Логическое "не" инвертирует данное неравенство( истина становится ложью, и наоборот), значит:
не(x>=10) равносильно (x<10), и промежуток x: (-oo;10)
В итоге:
не(x - нечетное) и не(x>=10)<=>(x - четное) и (x<10)
Полученное неравенство будет истинно для четных x из промежутка (-oo;10).
Наибольшее четное число из (-oo;10): 8
ответ: 8
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(1.To(ReadInteger('n=')).Select(i->i/(i+1)).Sum)
end.