Код:
var a,b,c:array[0..100]of string;t:string[14];i,s,f:longint;
Begin
{ переводит римские числа(от I до CMXCIX) в арабские}
readln(t);
a[1]:='I';
a[2]:='II';
a[3]:='III';
a[4]:='IV';
a[5]:='V';
a[6]:='VI';
a[7]:='VII';
a[8]:='VIII';
a[9]:='IX';
b[1]:='X';
b[2]:='XX';
b[3]:='XXX';
b[4]:='XL';
b[5]:='L';
b[6]:='LX';
b[7]:='LXX';
b[8]:='LXXX';
b[9]:='XC';
c[1]:='C';
c[2]:='CC';
c[3]:='CCC';
c[4]:='CD';
c[5]:='D';
c[6]:='DC';
c[7]:='DCC';
c[8]:='DCCC';
c[9]:='CM';
for i:=9 downto 1 do
if pos(c[i],t)>0 then begin
s:=s*10+i;
break;
end;
f:=0;
for i:=9 downto 1 do
if pos(b[i],t)>0 then begin
s:=s*10+i;
f:=1;
break;
end;
if f=0 then s:=s*10;
f:=0;
for i:=9 downto 1 do
if pos(a[i],t)>0 then begin
f:=1;
s:=s*10+i;
break;
end;
if f=0 then s:=s*10;
writeln(s);
End.
