Program P49;
 { Conversia cifrelor romane }
var i : integer;
    c : char;
begin
 i:=0;
 writeln('Introduceţi una din cifrele romane I, V, X, L, C, D, M');
 readln(c);
 if c='I' then i:=1;
 if c='V' then i:=5;
 if c='X' then i:=10;
 if c='L' then i:=50;
 if c='C' then i:=100;
 if c='D' then i:=500;
 if c='M' then i:=1000;
 if i=0 then writeln(c, '  - nu este o cifrň romană')
        else writeln(i);
 readln;
end.