[HaBo]

Module Module1

    Sub Main()
        Dim eingabe As Integer
        Dim roem As String = ""

        eingabe = CType(Console.ReadLine(), Integer)

        Do While eingabe > 0
            Select Case eingabe
                Case Is > 5000
                    eingabe -= 5000
                    roem &= "A"
                Case Is > 1000
                    eingabe -= 1000
                    roem &= "M"
                Case Is > 500
                    eingabe -= 500
                    roem &= "D"
                Case Is > 100
                    eingabe -= 100
                    roem &= "C"
                Case Is > 50
                    eingabe -= 50
                    roem &= "L"
                Case Is > 10
                    eingabe -= 10
                    roem &= "X"
                Case Is > 5
                    eingabe -= 5
                    roem &= "V"
                Case Else
                    eingabe -= 1
                    roem &= "I"
            End Select
        Loop

        Console.WriteLine(roem)
        Console.ReadLine()
    End Sub

End Module