Imports System

Public Module Module1

    Public Sub Main()

        dim charity1 as decimal

        dim charity2 as decimal

        dim charity3 as decimal

        dim bill as decimal

        dim choice as integer

        dim name1 as string

        dim name2 as string

        dim name3 as string

        dim charitytotal1 as decimal

        dim charitytotal2 as decimal

        dim charitytotal3 as decimal

        dim count as integer

        dim c as integer

        count = 0

        charitytotal1 = 0

        charitytotal2 = 0

        charitytotal3 = 0

        console.writeline("amount of customers")

        c = console.readline()

        Do until count = c

            console.writeline("enter your bill")

        bill = console.readline()

            console.writeline("enter your choice(1,2,3)")

        choice = console.readline()

        if choice = 1 then

            charity1 = bill*0.01 + charity1

            charitytotal1 = charitytotal1 + charity1

                count = count + 1

        elseif choice = 2 then

            charity2 = bill*0.01 + charity2

            charitytotal2 = charitytotal2 + charity2

                count = count + 1

        elseif choice = 3 then

            charity3 = bill*0.01 + charity3

            charitytotal3 = charitytotal3 + charity3

                count = count + 1

        elseif choice = -1 then

            console.writeline("charity total 1")

            console.writeline(charitytotal1)

            console.writeline("charity total 2")

            console.writeline(charitytotal2)

            console.writeline("charity total 3")

            console.writeline(charitytotal3)

        end if 

        loop

        console.writeline("end")

        console.writeline("total amount of donations of 3")

        console.writeline(charitytotal1 + charitytotal2 + charitytotal3)

    End Sub

End Module