DIM a,b,i,N AS INTEGER
a= -18
b= 18
N= 0
 FOR i = a TO b
IF F(i) >= 0 THEN
  N = N + 1;
END IF
 NEXT i
 PRINT N
 FUNCTION F(x)
 F = 2*(x-2)*(x-3)+18
END FUNCTION