var
  Number: integer;
begin
  Number := ReadInteger;
  case Number of
    1:  Writeln('I'); 
    2:  Writeln('II');
    3:  Writeln('III');
    4:  Writeln('IV');
    5:  Writeln('V');
    6:  Writeln('VI');
    7:  Writeln('VII');
    8:  Writeln('VIII');
    9:  Writeln('IX');
    10: Writeln('X');
    11: Writeln('XI');
    12: Writeln('XII');
    13: Writeln('XIII');
    14: Writeln('XIV');
    15: Writeln('XV');
    16: Writeln('XVI');
    17: Writeln('XVII');
    18: Writeln('XVIII');
    19: Writeln('XIX');
    20: Writeln('XX');
    else 
      Writeln('Неверная цифра! Введите цифру, принадлежащую отрезку [1..20]');
  end;
end.