const rim:array [1..7]
of char=  ('I', 'V', 'X', 'L', 'C', 'D', 'M');
const eqv:array [1..7]
of integer=(1 ,   5,  10,  50, 100,500 ,1000) ;
var i,n,t,ts,t1,t2:integer;
a:array [1..20] of integer;
s:string;
begin
  { TODO -oUser -cConsole Main : Insert code here };

writeln('VVedite chislo v rimskoi s.s.');
readln(s);
n:=length(s);

for i:=1 to n do
begin
  for t:=1 to 7 do
   begin
   if upcase(s[i])=rim[t] then a[i]:=eqv[t];
  end;
end;
     t1:=0;
     t2:=0;
     ts:=0;
     t:=0;
i:=2;
repeat
if (a[i-1]<a[i]) and (a[i]/a[i-1]<=10) then
 begin
 t1:=t1+a[i]+a[i-1];
 t2:=t2+a[i]-a[i-1]
 end;
inc(i);
until i>n;

for i:=1 to n do ts:=ts+a[i];

t:=ts-t1+t2;
//writeln('t= ',t,' t1= ',t1, ' t2= ',t2,' ts= ',ts);
writeln(s, ' = ', t);
readln;
end.

Uses crt;
Var ch: string;
    chis:char;
    i,otv:integer;
    mas:array [1..30] of integer;
begin
  clrscr;
  otv:=0;
  Writeln ('Roman: (Capital)');
  Readln(ch);
  for i:=1 to length(ch) do begin
    chis:=ch[i];
    case chis of                {sopostavlenie}
      'I': mas[i]:=1;
      'V': mas[i]:=5;
      'X': mas[i]:=10;
      'L': mas[i]:=50;
      'C': mas[i]:=100;
      'D': mas[i]:=500;
      'M': mas[i]:=1000
    end
  end;
  for i:=1 to length(ch) do        {Perevod}
    if mas[i]<mas[i+1] then otv:=otv-mas[i]
    else otv:=otv+mas[i];
  Writeln('Decimal: ',otv);
  Readkey
end.