ПОМОГИТЕ СРОЧНО НАПИСАТЬ ПРОГРАММУ

пусть дано 100 вещественных чисел,которые вводятся по одному.Найдите количество положительных,отрицательных и нулевых элементов.

 

1
2
3
4
5
6
7
8
9
10
11 CLS
FOR c = 1 TO 100
PRINT "Vvedi chislo"; c;
INPUT ": ", n
r = SGN(n) + 1
p(r) = p(r) + 1
NEXT
PRINT STRING$(80, 196)
PRINT "Pologitelnyh :"; p(2)
PRINT "Otricatelnyh :"; p(0)
PRINT "Nulevih :"; p(1)