Module Module1
    Sub Main()
        Try
ПовторитьD:
            Dim Склад As New КлассСклад
            Склад.Ввести()
            'Вывести наименование продуктов которые привезли в опр дату
            Console.WriteLine("Введите дату: ")
            Dim Дата As String = Console.ReadLine()
            Console.WriteLine((ControlChars.Tab & "Наименование продуктов привезенных в этот срок: "))
            For Each МолТовар As КлассТовар In Склад.МолТовар
                If МолТовар.Дата_доставки = Дата Then
                    Console.WriteLine(МолТовар.Наименование)
                End If
            Next
            For Each КонТовар As КлассТовар In Склад.КонТовар
                If КонТовар.Дата_доставки = Дата Then
                    Console.WriteLine(КонТовар.Наименование)
                End If
            Next
        Catch ex As Exception
            Console.WriteLine("Ошибка, нажмите на п чтобы продожить")
            Select Case Console.ReadKey(True).Key
                Case ConsoleKey.G
                    GoTo ПовторитьD
                Case Else
                    Exit Sub
            End Select
        End Try

        Console.ReadKey()
    End Sub
    MustInherit Class КлассТовар
        Public Наименование As String
        Public Страна As String
        Public Количество_единиц_товара As Integer
        Public Дата_доставки As Date
        Public Sub Ввести()
            Try
ПовторитьA:
                Console.WriteLine("Сведения о товаре")
                Console.Write(ControlChars.Tab & "Наименование: ")
                Наименование = Console.ReadLine()
                Console.Write(ControlChars.Tab & "Страна: ")
                Страна = Console.ReadLine()
                Console.Write(ControlChars.Tab & "Количество единиц товара: ")
                Количество_единиц_товара = Console.ReadLine()
                Console.Write(ControlChars.Tab & "Дата_доставки: ")
                Дата_доставки = Console.ReadLine()
            Catch ex As Exception
                Console.WriteLine("Ошибка, нажмите на п чтобы продожить")
                Select Case Console.ReadKey(True).Key
                    Case ConsoleKey.G
                        GoTo ПовторитьA
                    Case Else
                        Exit Sub
                End Select
            End Try
        End Sub
    End Class
    Class КлассМолочные
        Inherits КлассТовар 'Унаследован от класс персона
        Public Срок_годности As Integer 'Частное свойство
        Public Overloads Sub Ввести()
            MyBase.Ввести()

            Console.Write("Срок годности(кол-во дней): ")
            Срок_годности = Console.ReadLine()
        End Sub
    End Class
    Class КлассКондитерские
        Inherits КлассТовар 'унаследовани от класс персона
        Public Вес As Integer 'Частное свойство
        Public Overridable Sub Ввести()
            MyBase.Ввести()
            Console.Write("Вес(в граммах): ")
            Вес = Console.ReadLine()
        End Sub
    End Class
    Class КлассСклад
        Public Товар() As КлассТовар
        Public МолТовар() As КлассМолочные
        Public КонТовар() As КлассКондитерские
        Public Sub Ввести()
            Dim i, n As Integer
            Console.WriteLine(" СКЛАД  ")
            Try
ПовторитьB:
                Console.Write("Количество молочных товаров(видов): ")
                n = Console.ReadLine()
                МолТовар = New КлассМолочные(n - 1) {}
                For i = 0 To UBound(МолТовар)

                    'Создание для экземпляра для первого товара
                    МолТовар(i) = New КлассМолочные
                    МолТовар(i).Ввести()

                Next
            Catch ex As Exception
                Console.WriteLine("Ошибка, нажмите на п чтобы продожить")
                Select Case Console.ReadKey(True).Key
                    Case ConsoleKey.G
                        GoTo ПовторитьB
                    Case Else
                        Exit Sub
                End Select
            End Try
            Try
ПовторитьС:
                Console.Write("Количество кондитерских  товаров(видов): ")
                n = Console.ReadLine()
            Catch ex As Exception
                Console.WriteLine("Ошибка, нажмите на п чтобы продожить")
                Select Case Console.ReadKey(True).Key
                    Case ConsoleKey.G
                        GoTo ПовторитьС
                    Case Else
                        КонТовар = New КлассКондитерские(n - 1) {}
                For i = 0 To UBound(КонТовар)

                    'Создание для экземпляра для первого товара
                    КонТовар(i) = New КлассКондитерские
                    КонТовар(i).Ввести()
                Next


                End Select
            End Try
        End Sub
    End Class
End Module