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

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