Imports System.console

'napisati program koji od korisnika prima dva po dva broja. ako su oba broja pozitivna ispisat će sve brojeve između njih.

'u suprotnom javlja grešku i završava               

Public Module Module1

    Public Sub Main()

        Dim broj1, broj2 As Integer

        Do

            WriteLine("Upiši prvi broj")

            broj1 = ReadLine()

            WriteLine("Upiši drugi broj")

            broj2 = ReadLine()

            If broj1 > 0 And broj2 > 0 And broj2 > broj1 Then

                For i = (broj1 + 1) To (broj2 - 1)

                    WriteLine(i)

                Next

            ElseIf broj1 > 0 And broj2 > 0 And broj1 > broj2 Then

                For i = (broj2 + 1) To (broj1 - 1)

                    WriteLine(i)

                Next

            Else

                WriteLine("Greska")

                Exit Sub

            End If

        Loop

    End Sub

End Module