ввести с клавиатуры 10 чисел и найти сумму неотрицательных из них и произведение отрицательных

10 CLS 

15 S=120 INPUT "Введите размерность";N 

30 FOR I=1 TO N40 INPUT "Введите число";A(I) 50 NEXT I 60 FOR I=1 TO M 70 IF A(I) >0 THEN M=M+A(I) ELSE S=A(I)*S80 NEXT I 90 PRINT S 

95 PRINT M100 END