Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Welcome to Burn Your Mouth")

        dim customer as string

        dim pizza as integer

        dim amount as integer

        dim price as decimal

        dim total as decimal

        dim cardnum as string

        dim expdate as decimal

        dim secnum as string

        dim arrived as string

        Console.WriteLine("Please enter your name: ")

        customer = Console.ReadLine()

        Console.WriteLine("Which pizza would you like, 1.margarita 2.pepperoni 3.mighty meaty 4.vegetarian")

        pizza = Console.ReadLine()

        Console.WriteLine("How many? ")

        amount = Console.ReadLine()

        if pizza = 1 then

            price= 5.00

        else

            if pizza = 2 then

                price= 7.00

            else    

                if pizza = 3 then

                    price= 10.00

                else

                    if pizza = 4 then

                        price= 6.00

                    end if

                end if

            end if

        end if

        total= price*amount

        Console.WriteLine("The total is £"&total)

        Console.WriteLine("Enter card number: ")

        cardnum = Console.ReadLine()

        if Microsoft.VisualBasic.Len(cardnum) <> 16 then

            Console.WriteLine("Invalid card number")

            Stop

        else        

            Console.WriteLine("Enter expire date, year first: ")

            expdate= Console.ReadLine()

            if cardnum < 2016.9 then

                Console.WriteLine("Card expired")

                stop

            else    

                Console.WriteLine("Enter security number: ")

                secnum= Console.ReadLine()

                if Microsoft.VisualBasic.Len(secnum) <> 3 then

                    Console.WriteLine("Invalid security number")

                    stop

                else    

                    System.Threading.Thread.Sleep(3000) 

                    Console.WriteLine("Has the pizza arrived? ")

                    arrived = Console.ReadLine()

                    if arrived = ("yes") then

                        Console.WriteLine("Enjoy")

                        else

                            Console.WriteLine("The company has been informed")

                    end if

                end if

            end if

        end if

        stop

    End Sub

End Module