Imports System

Public Module Module1

    Dim rate, distance , Dis, fare , all as integer

    Dim passen as String

    Dim reg, sen, pwd, student as decimal

    Public Sub Main()

    ' THISPROGRAM COMPUTES THE FARE AND DISCOUNT IT ACCORDING TO THE STATUS OF YOUR LIFEIN THE OPTION

    'Input the value of the subjects here

        reg= .0D

        sen=.20D

        pwd=.15D

        student=.10D

    'Input the subjects needed

        Console.Write("Enter rate: ")

        rate = console.ReadLine

        Console.Write("Enter distance: ")

        distance = console.ReadLine

    'here is the options

        Console.WriteLine("-------------------------------------")

        Console.WriteLine("Passenger Type: ")

        Console.Write("[1] Regular     ")

        Console.WriteLine("[2] Senior Citizen")

        Console.Write("[3] Pwd         ")

        Console.WriteLine("[4] Student")

        Console.WriteLine("-------------------------------------")

    'Input passenger type here

        Console.Write("Enter Passenger Type Here: ")

        passen = console.ReadLine

        Console.WriteLine("-------------------------------------")

    'Process here

        fare = rate * distance

        Select Case (passen)

        Case 1

            passen = "Regular"

            Dis= fare * reg

        Case 2

            passen = "Senior Citizen"

            Dis = fare * sen

        Case 3

            passen = "Pwd"

            Dis = fare * pwd

        Case 4

            passen = "Student"

            Dis = fare * student

        Case else 

            passen ="Invalid"

        End Select

        all = fare - Dis

    'Compilation of outout here

        Console.WriteLine("You are a " & passen & " passenger")

        Console.WriteLine("Regular Fare: " & fare)

        Console.WriteLine("Discount: " &Dis)

        Console.Write("Discounted fare is : " & all)

    End Sub

End Module