Program P53;
 { 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);
 case c of
     'I' : i:=1;
     'V' : i:=5;
     'X' : i:=10;
     'L' : i:=50;
     'C' : i:=100;
     'D' : i:=500;
     'M' : i:=1000;
 end;
 if i=0 then writeln(c, '  - nu este o cifrň romană')
        else writeln(i);
 readln;
end.