Imports System

Public Module Module1

    Public Sub Main()

        dim qsingle as integer

        dim qdouble as integer

        dim qflake as integer

        dim total as integer

        Console.WriteLine("input amount of singles sold")

        qsingle = console.ReadLine()

        console.Writeline("input amount of doubles sold")

        qdouble = console.readline()

        console.WriteLine("input amount of flakes sold")

        qflake = console.ReadLine()

        console.Write("your total is ")

        total = qsingle*1.50 + qdouble*2.25 + qflake*2.75

    End Sub

End Module