Dim rate, distance, fare, dis, disfare as integer
Dim reg, senior, pwd, student as decimal
Console.Write("Enter rate: ")
Console.Write("Enter distance: ")
distance = console.ReadLine
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: ")
Console.Writeline("--------------------------------")
type = "You are a Regular passenger"
type = "You are a Senior Citizen passenger"
type = "You are a PWD passenger"
type = "You are a Student Passenger"
Console.Writeline("Regular Fare: "& fare)
Console.Writeline("Discount is: "& dis)
Console.Writeline("Discounted Fare is: "& disfare)