Imports System, Microsoft.VisualBasic

'Aparajit Kannan'

'11/29/2021'

'Fast food program'

Public Module Module1

    Public Sub Main()

        Dim mealType As Char

        Dim drinkSize As Char

        Dim finalCost As Single

        Console.WriteLine("Please enter if you would like a Combo (C) or regular (R) meal")

        mealType= Console.Readline()

        Console.WriteLine("Please enter a drink size, small (S), medium (M), or large (L)")

        drinkSize= Console.ReadLine()

        If mealType = "C" Then

            If drinkSize = "S" Then

                 finalCost= 8

            ElseIf drinkSize= "M" Then

                finalCost= 8.50

            ElseIf drinkSize= "L" Then

                finalCost= 9

            End If

        ElseIf mealType = "R" Then

                If drinkSize = "S" Then

                 finalCost= 6

            ElseIf drinkSize= "M" Then

                finalCost= 6.50

            ElseIf drinkSize= "L" Then

                finalCost= 7

            End If

        End If

            Console.WriteLine("Your total is " & FormatCurrency(finalCost)) 

    End Sub

End Module