Найти максимум числового выражения 2

REM
REM  s1*s2 +...+ sk*s(k+1)*s(k+2) +...+ s200*s201
REM
REM   (s = SIN)  Max = 53.4653  k = 143
REM
 
CLS
 
FOR k = 1 TO 199 STEP 2
   S = 0
   S = SIN(k) * SIN(k + 1) * SIN(k + 2)
 
   FOR i = 1 TO k - 1
      S = S + SIN(i) * SIN(i + 1)
   NEXT
 
   FOR i = k + 3 TO 200
      S = S + SIN(i) * SIN(i + 1)
   NEXT
 
   IF max < S THEN
      max = S
      km = k
   END IF
NEXT k
 
PRINT S; km
END

DIM i AS LONG, s1 AS DOUBLE, s2 AS DOUBLE, s AS DOUBLE, sm AS DOUBLE, km AS LONG
CONST n AS LONG = 201
FOR i = 1 TO n - 2 STEP 2
    s2 = s2 + SIN(i + 1) * SIN(i + 2)
NEXT i
FOR i = 1 TO n - 2 STEP 2
    s2 = s2 - SIN(i + 1) * SIN(i + 2)
    s = s1 + SIN(i) * SIN(i + 1) * SIN(i + 2) + s2
    s1 = s1 + SIN(i) * SIN(i + 1)
    IF i = 1 OR s > sm THEN sm = s: km = i
NEXT i
PRINT sm, km

DIM i AS LONG, s1 AS DOUBLE, s2 AS DOUBLE, s AS DOUBLE, sm AS DOUBLE, km AS LONG
CONST n AS LONG = 201
FOR i = 1 TO n - 2 STEP 2
    s2 = s2 - SIN(i + 1) * SIN(i + 2)
    s = s1 + SIN(i) * SIN(i + 1) * SIN(i + 2) + s2
    s1 = s1 + SIN(i) * SIN(i + 1)
    IF i = 1 OR s > sm THEN sm = s: km = i
NEXT i
sm = sm - s2
PRINT sm, km

DIM i AS LONG, s1 AS DOUBLE, s2 AS DOUBLE, s AS DOUBLE, sm AS DOUBLE, km AS LONG
DIM sn1 AS DOUBLE, sn2 AS DOUBLE, sn3 AS DOUBLE
CONST n AS LONG = 201
sn1 = SIN(1)
FOR i = 1 TO n - 2 STEP 2
    sn2 = SIN(i + 1)
    sn3 = SIN(i + 2)
    s2 = s2 - sn2 * sn3
    s = s1 + sn1 * sn2 * sn3 + s2
    s1 = s1 + sn1 * sn2
    IF i = 1 OR s > sm THEN sm = s: km = i
    sn1 = sn3
NEXT i
sm = sm - s2
PRINT sm, km