Imports System
Public Module Module1
Public Sub Main()
Dim Number As Integer
Dim Smallest As Integer
Smallest = 99999
Do
Console.WriteLine("Enter a positive number or -1 to end")
Number = Console.ReadLine()
If Number > 0 Then
If Number < Smallest Then
Smallest = Number
End If
Loop Until Number = -1
Console.WriteLine("Smallest = " & Smallest)
End Sub
End Module
' Pseudocode
' ----------
' INTEGER: Number, Smallest
' Smallest = 999999
' REPEAT
' PRINT "Enter a positive number or -1 to end"
' INPUT Number
' IF Number > 0 THEN
' IF Number < Smallest
' Smallest = Number
' END IF
' UNTIL Number = -1
' PRINT "Smallest = ", Smallest