Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Enter type of sack")

        console.WriteLine("Option 1 : Cement")

        console.WriteLine("Option 2 : Gravel")

        console.WriteLine("Option 3 : Sand")

        Dim SackType as string = console.ReadLine()

        console.WriteLine("Enter weight of sack in kilograms")

        dim SackWeight as decimal = console.ReadLine()

        if SackType = "Sand" or SackType = "Gravel" then

            do while SackWeight > 49.9 or SackWeight < 50.1

            loop

            Console.WriteLine("Acceptable Weight")

        else

            console.WriteLine("Reject Sack")

        end if

        if SackType = "Cement" then

            do while SackWeight > 24.9 or SackWeight < 25.1

                    console.WriteLine("Acceptable Weight")

            else 

            console.WriteLine("Reject Sack")

            loop

        end if

    End Sub

End Module