Dim discount As Integer = 0
Console.WriteLine("How many sacks would you like in total?")
Console.WriteLine("Press S for sand, G for gravel and C for cement")
Console.WriteLine("Type in the weight over 49.9 and under 50.1 kilograms ")
weight = Console.ReadLine
If 49.9 < weight And weight < 50.1 Then
Console.WriteLine("invalid weight")
Loop Until weight > 49.9 And weight < 50.1
Console.WriteLine("Type in the weight over 49.9 and under 50.1 kilograms")
weight = Console.ReadLine
If 49.9 < weight And weight < 50.1 Then
Console.WriteLine("invalid weight")
Loop Until 49.9 < weight And weight < 50.1
Console.WriteLine("Type in the weight over 24.9 and under 25.1 kilograms")
weight = Console.ReadLine
If 24.9 < weight And weight < 25.1 Then
Console.WriteLine("invalid weight")
Loop Until 24.9 < weight And weight < 25.1
Console.WriteLine("Incorrect sack")
Loop Until item = "Sand" Or item = "Gravel" Or item = "Cement"
ElseIf item = "Gravel" Then
ElseIf item = "Cement" Then
p = 3 * nc + 2 * ns + 2 * ng
If gc >= 0 And gg >= 0 And gs >= 0 Then
Console.WriteLine("Number of rejection: " & reject)
Console.WriteLine("Content: " & ns & " Sand" & " " & ng & " Gravel" & " " & nc & " Cement")
Console.WriteLine("Weight of Sand: " & ts)
Console.WriteLine("Weight of Gravel: " & tg)
Console.WriteLine("Weight of Cement: " & tc)
Console.WriteLine("Total Weight: " & tw)
Console.WriteLine("Price is: $" & p)
Console.WriteLine("Discount of: $" & discount)
Console.WriteLine("The total price is: $" & tp)