Imports System

Public Module Module1

    dim rate, regular, senior, student, pwd as string, distance, givenrate, passengertype, discount as integer

    Public Sub Main()

        Console.Write("ENTER RATE: ")

        rate = console.ReadLine

        Console.Write("ENTER DISTANCE:" )

        distance= console.Readline

        givenrate= rate * distance

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

        Console.WriteLine("PASSENGER TYPE: ")

        Console.Writeline("[1] Regular      [2] Senior citizen")

        Console.Writeline("[3] PWD          [4] Student")

        Console.Writeline("-----------------------------------")

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

        passengertype = console.Readline

        Console.Writeline("-----------------------------------")

        if (passengertype = 1)

            console.Writeline("You are a Regular Passenger")

            regular = givenrate

            console.Writeline("Regular Fare: " & regular)           

        elseif (passengertype = 2)

            console.Writeline("You are as Senior Citizen Passenger")

            console.Writeline("Regular Fare: " & givenrate)

                discount= (20*givenrate / 100)

                senior= givenrate - discount

            console.Writeline("Discount is: " & discount)

            console.Writeline ("Discounted Fare is:" & senior)

        else if (passengertype = 3)

                console.Writeline("You are PWD Passenger")

            console.Writeline("Regular Fare: " & givenrate)

                discount= (15*givenrate / 100)

                pwd= givenrate - discount

            console.Writeline("Discount is: " & discount)

            console.Write("Discounted Fare: " & pwd)

        else if (passengertype = 4)

                    console.WriteLine("You are a Student Passenger: ")

            console.WriteLine("Regular Fare: " & givenrate)

                    discount= (10*givenrate / 100)

                    student= givenrate - discount

            console.Writeline("Discount is: " & discount)

            console.Writeline("Discounted Fare is: " & student)

                else 

                    Console.Writeline("INVALID")

            end if

    End Sub

End Module