Option Strict On
Imports System.Console
Module Module1
    Dim i, luku1, 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 4
            WriteLine("Anna luku: (nolla lopettaa)")
            luku1 = CInt(ReadLine())
            If luku1 = 0 Then
                i = 4
            End If
            If valimuisti > luku1 Then
                WriteLine("EI (ENTER sammuttaa ohjelman)")
                i = 4
            Else
                If i = 4 Then
                    WriteLine("OLI (ENTER lopettaa ohjelman)")
                Else
                    WriteLine("OLI")
                End If
            End If
            valimuisti = luku1
        Next
        ReadLine()
    End Sub

End Module