Imports System

​

Public Module Module1

​

    dim i as decimal

​

    dim n1 as integer

​

    dim sum as decimal

    dim sum2 as decimal

    Public Sub Main()

        number1()

    end sub

​

    private sub number1()

        sum = 0

        sum2 = 0

        For i = 1 to 10

            n1 = console.readline()

        if n1 > 40 & n1 < 70 then

            sum = sum + 1

            end if

        next

    sum2 = sum / 10

    sum2 = sum * 100

    console.WriteLine(sum)

    End Sub

End Module

​