Question

знайти суму чисел менших 50 і парних (>0)

Answer 1

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Сумма ',2.Step(2).TakeWhile(t->t<50).Sum)
end.

Результат
Сумма 600