Imports System

Public Module Module1

    Public Sub Main()

        Sub1

    End Sub

    Public Sub Sub1

        Dim input as integer

        Dim sum as decimal

        Dim n1 as integer

        sum = 0

        n1 = 0

        input = Console.Readline()

        Do

            sum = sum + n1

            n1 = n1 + 2

        Loop until (n1 >= input)

    Console.WriteLine(sum)

    End Sub

    Public Sub Sub2

        Dim input as integer

        Dim i as integer

        Dim Count as decimal

        Count = 0

        For i = 1 To 10

        input = Console.ReadLine()

        If (input >= 40) and (input <= 70) then

            Count = Count + 1

        End if

    Next

    Console.WriteLine(Count)

    Console.WriteLine(Count * 10)

    End Sub

Public Sub Sub3

    Dim input as decimal

    Dim Celcius as decimal

    Do

    input = Console.ReadLine()

    Celcius = (input-32)*(5/9)

    Console.WriteLine(Celcius)

    Loop until (input = -1)

End Sub

End Module