{* Задача319 *}

REM basic

' Перевод из римской системы счисления в арабскую


CLS
INPUT "Введите римское число", a$
Dim d(LEN(a$) + 1)
CLS
For i = 1 To LEN(a$)
e$ = Mid$(a$, i, 1)
If e$ = "I" Then d(i) = 1
If e$ = "V" Then d(i) = 5
If e$ = "X" Then d(i) = 10
If e$ = "L" Then d(i) = 50
If e$ = "C" Then d(i) = 100
If e$ = "D" Then d(i) = 500
If e$ = "M" Then d(i) = 1000
Next i
 
For i = 1 To LEN(a$)
If d(i) >= d(i + 1) Then
ar = ar + d(i)
Else
ar = ar - d(i)
End If
 
Next i
PRINT "Арабское число"; ar
End