Даны натуральное число n и последовательность из n целых чисел. написать программу, определяющую количество положительных чисел в последовательности.

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  Print(ReadSeqInteger('>',ReadInteger('n=')).Where(k->k>0).Count)
end.

Тестовое решение:
n= 10
> 5 -3 0 -4 2 5 8 0 3 6
6