нааишите программу которая в последовательности натуральных чисел определяет суммк положительных чисел помогите быстрей

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017// Внимание! Если программа не работает, обновите версию!begin  Writeln('S=',ReadSeqInteger('->',ReadInteger('n=')).Where(x->x>0).Sum)end.Примерn= 10-> 15 -20 0 18 34 -11 -7 14 11 18S=110