Imports System.console

Public Module Module1

    Public Sub Main()

        dim broj as integer=1

        dim suma as integer

        do while suma<100           

            writeline("Unesite broj")

        broj = readline()

            suma=suma +broj

        loop

        writeline("Zbroj je prešao 100")

    End Sub

End Module