В одномерном массиве из N чисел вывести на экран количество положительных

10 CLS
20 REM Определяет количество положительных и отрицательных частей массива
30 INPUT "Введите количество частей в массиве N="; N
40 DIM A(N)
50 REM Ввод частей массива
60 FOR I = 1 TO N
70 PRINT "Номер"; I;
80 INPUT "Значение элемента массива ="; A(I)
90 NEXT I
110 REM Нахождение количества положительных и отрицательных элементов массива
120 K = 0: S = 0
130 FOR I = 1 TO N
140 IF A(I) gt; 0 THEN K = K + 1
150 IF A(I) lt; 0 THEN S = S + 1
160 NEXT I
170 REM Вывод результатов
180 PRINT "Количество положительных частей ="; K
190 PRINT "Количество отрицательных частей ="; S
200 END

В таком виде программка была выполнена в среде LB Booster - безвозмездной версии со входным языком Liberty BASIC. Сама же Liberty BASIC является коммерческим продуктом, в связи с чем попробовать выполнить эту программку конкретно в этой среде не представляется возможным.