Question

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

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  Println('Сумма:',Range(2,48,2).Aggregate((m,n)->m+n))
end.

Ответ:
  Сумма: 600 

Answer 2

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

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

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