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

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016begin  Print(ReadSeqInteger('>',ReadInteger('n=')).Where(k->k>0).Count)end.Тестовое решение:n= 10> 5 -3 0 -4 2 5 8 0 3 66