Sub Main()
        Dim a1, a2, a3, s As Double
        Dim i As Integer
        a1 = Math.Cos(2) / 12
        If a1 < 0 Then s = a1 Else s = 0
        a2 = Math.Sin(3) / 15
        For i = 3 To 100
            If a2 < 0 Then s = s + a2
            a3 = a2 / 21
            a1 = a2
            a2 = a3
        Next i
        Console.WriteLine("S= {0:f7}", s)
        Console.ReadLine()
    End Sub