Imports System

Public Module Module1

    Public Sub Main()

        dim type as char 

        dim weight as decimal = 0

        const intcharge as integer = 40

        const loccharge as integer = 20

        console.writeline("selct (l)ocal or (i)nternational")

        type = console.readline()

        console.writeline("insert weight in kg")

        weight = console.readline()

        if type = "i" then 

            if weight <= 5 then

                console.writeline(intcharge)

            else 

                console.writeline("over weight")

            end if

        else 

            if weight <= 5 then 

                console.writeline(loccharge)

            else 

                console.writeline(loccharge + math.ceiling(weight - 5))

            end if 

        end if 

    End Sub

End Module