Знайти суму всіх парних чисел від 1 до n. паскаль

Question

Знайти суму всіх парних чисел від 1 до n. паскаль

Answer 1

//PascalABC.NET 3.1 сборка 1200
begin
  writeln(range(1, ReadInteger('n =')).Where(x -> x mod 2 = 0).Aggregate((s, x)-> x + s));
end.