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

// 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 18
S=110