Miscellany

Option Strict On
imports System.Console


Module Module1
    Dim i, luku1, luku2, luku3, luku4, luku5, valimuisti As Integer
    Sub Main()
        WriteLine("Anna korkeintaan viisi lukua. Tarkastan ovatko ne suuruusjärjestyksessä.")
        WriteLine("Anna luku:")
        valimuisti = CInt(ReadLine())
        For i = 1 To 5
            WriteLine("Anna luku: (nolla lopettaa)")
            luku1 = CInt(ReadLine())
            If luku1 = 0 Then
                i = 5
            End If
            If valimuisti > luku1 Then
                WriteLine("Antamasi luvut eivät ole suuruusjärjestyksessä.")
                i = 5
            End If
            valimuisti = luku1
        Next
        ReadLine()
    End Sub

End Module