Imports System, Microsoft.VisualBasic

'Briged Gaona

'11/29.21

'Fast FOod Program

Public Module Module1

    Public Sub Main()

        'Step 1) Declare Variables

        Dim totalprice As Single

        Dim mealtype As Char

        Dim drinksize As Char

        Console.WriteLine("Enter meal type (C) for combo OR (R) for regular")

        mealtype = Console.ReadLine()

        Console.WriteLine("Enter drink size (S) for meal OR (R) for medium OR")

        drinksize = Console.ReadLine()

        If mealtype = "C" OR mealtype = "c" Then

            If drinksize = "S" Then

                    totalprice = 8

                ElseIf drinksize = "M" Then 

                    totalprice = 0.50   

                ElseIf drinksize = "R" Then

                    totalprice = "R"

            End If

            ElseIf mealtype = "R" Then

                Console.WriteLine("regular")

        End If

    End Sub

End Module