// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
if (SeqGen(ReadInteger('n='),1,1,(i,j)->(i+j)).Sum).IsEven then
Writeln('Cумма первых членов есть чётное число')
else Writeln('Cумма первых членов есть нечётное число')
end.
Примеры
n= 7
Cумма первых членов есть нечётное число
n= 11
Cумма первых членов есть чётное число