Imports System

Public Module Module1

    Public Sub Main()

        Dim cost as integer

        Dim weight as Decimal

        Dim dest as char

        Const IntCharge as integer = 40

        Const LocCharge as integer = 20

        Console.Writeline ("Select local or international, if local, press L. If international, press I")

        dest = console.readline 

        Console.Writeline ("Enter weight")

        Weight =Console.Readline 

        IF dest = "I" 

            IF weight <= 5 THEN

                Console.Writeline ("International Charge=£40")

            ELSE Console.Writeline ("Overweight")

            ELSE 

                IF weight <= 5

                    Console.Writeline (LocCharge)

                ELSE 

                    Console.Writeline (LocCharge + Math.Ceiling(Weight-5))

                End if 

            End if

        End if

    End Sub

End Module