Imports System

Public Module Module1

    Public Sub Main()

        'Merry Dominique Duclayan'

        Dim age as char

        Dim price as integer

        Console.Writeline ("Enter price of the item")

        Price = console.readline()

        Console.Writeline ("What type of clothes did you bought? Enter the letter in capslock")

        Console.Writeline ("(A) for adults | (C) for child")

        age = console.readline()

        If age = "A"

            Price = price*1.175

            Console.Writeline ("Price:" & Price)

        Else if age = "C"

                Console.Writeline ("Price:"& Price)

        End if

    End Sub

End Module