Imports System
Public Module Module1
Public Sub Main()
Dim N, RN as string
Dim M, D, C, L, X, V, I as integer
M = 1000
D = 500
C = 100
L = 50
X = 10
V = 5
I = 1
Console.Writeline("input a number")
N = Console.Readline()
RN = ""
While N > 0
'console.WriteLine("!"&n)
If (n-m >= 0)
n = n-m
RN = RN+ "M"
ElseIf(n-d >= 0)
n = n - d
RN = RN + "D"
ElseIf(n-c >= 0)
'console.WriteLine("100!"&n)
n = n - c
RN = RN + "C"
ElseIf(n-l >= 0)
n = n - l
RN = RN + "L"
ElseIf(n-x >= 0)
'console.WriteLine("10!"&n)
n = n - x
RN = RN + "X"
ElseIf(n-v >= 0)
n = n - v
RN = RN + "V"
ElseIf(n-i >= 0)
'console.WriteLine("!!!!!!"&n)
n = n - i
RN = RN + "I"
End If
End While
Console.Writeline(RN)
End Sub
End Module