Module Module1
    Sub Main()
        'Создание экземпляра объекта для типа КлассСклад
        Try
ПовторитьD:
            Dim Склад As New КлассСклад
            Склад.Ввести()
            'Вывести наименование продуктов которые привезли в опр дату
            Console.WriteLine("Введите дату: ")
            Dim Дата As String = Console.ReadLine()
            Console.WriteLine(("Наименование продуктов привезенных в этот срок: "))
            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 Overridable 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 Overrides Sub Ввести()
            MyBase.Ввести() 'Вызов метода базового класса
            Console.Write("Срок годности(кол-во дней): ")
            Срок_годности = Console.ReadLine()
        End Sub
    End Class
    Class КлассКондитерские
        Inherits КлассТовар 'унаследовани от класс товары
        Public Вес As Integer 'Частное свойство
        'Переопределенный метод для ввода полей
        Public Overrides 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()
                КонТовар = 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 ПовторитьС
                    Case Else
                        Exit Sub
                End Select
            End Try
        End Sub
    End Class
End Module