Imports System

Public Module Module1

    Public Sub Main()

        Dim n1 as integer

        Dim count as integer

        count = 0

        Console.WriteLine("Enter a number")

            n1 = Console.ReadLine()

        Do

            n1 = n1 - 2

            count = count + 1

        Loop until n1 = 0 or n1 < 0

        Dim n2 as integer

        n2 = count * count + count

        Console.WriteLine(n2)

    End Sub

End Module