Даны целые числа из промежутка [-24; 56]. Найти сумму всех нечетных чисел и количество четных чисел. Найти произведение чисел кратных 7, но не кратных 3 — PureBasic(Бейсик)

summNechet=0
countChet=0
P = 1
For i=-24 to 56
  If i mod 2 = 1 Then
    summNechet = summNechet + i
  Else
    countChet = countChet + 1
  End if
  
  If i mod 7=0 AND i mod 3 <> 0 Then
    P = P * i
  End if
Next i
 
Print summNechet
Print countChet
Print P