CLS
DIM A(1 TO 8)
DIM B(1 TO 8)
FOR i = 1 TO 8
  PRINT "A("; i; ") = "
  INPUT "", A(i)
NEXT i
 
FOR i = 1 TO 8
  PRINT "B("; i; ") = "
  INPUT "", B(i)
NEXT i
 
FOR i = 1 TO 8
  IF A(i) < 0 THEN
    PRINT "otr: "; i
  END IF
NEXT i
 
Proizv = 1
 
FOR i = 1 TO 8
  IF B(i) > 0 THEN
    Proizv = Proizv * B(i)
  END IF
NEXT i
PRINT "Proizvedenie:"; Proizv