program T12;
var
   i: integer;
begin
   writeln(DecToRoman(1984));
   i:=RomanToDec('MCMLXXXIV');
   writeln(I);
end.