bushblows

        Dim i As Integer
        Dim number As Integer = 4
        Dim final As Integer = 0
        For i = 0 To 208
            number = number + 4
            i = number
            final = final + i
            Console.WriteLine(i)
        Next i
        Console.WriteLine()
        Console.WriteLine(final)
        Console.ReadLine()