Imports System

Public Module Module1

    Public Sub Main()

        Dim confirm as string

        Dim parkingdetails(0 to 2, 0 to 19)

        Dim delete as string

        Do

        For r = 0 to 2

        for c = 0 to 19

        if r = 0 

            Do 

            Console.writeline("Enter name")

                parkingdetails(r,c)= Console.readline()

                Console.writeline("Confirm that the name is " & parkingdetails(r,c) )

                Confirm = console.readline()

            loop until confirm = "yes"

        Else if r = 1

                Do

                Console.writeline("Enter plate number")

                    parkingdetails(r,c)= Console.readline()

                    Console.writeline("Confirm that the plate number is " & parkingdetails(r,c))

                Confirm = console.readline()

            loop until confirm = "yes"

            Else  Do 

                    Console.writeline ("Enter Days 1 to 14 inclusive")

                loop until Console.readline() <= 1 or Console.readline() >= 14 

            End if 

            parkingdetails(r,c)=Console.readline()

    next 

next

        Console.writeline ("Do you want to delete the program")

        Delete=Console.readline()

    loop until Delete = "yes"

    End Sub

End Module