Помогите пож!!! Используя оператор case, напишите пож. программу, которая переводит...

Question

Помогите пож!!! Используя оператор case, напишите пож. программу, которая переводит десятичные числа 1, 5, 10, 50, 100, 500, 1000, считываемые с клавиатуры, в римские.

Answer 1

var a:integer;

s:string;

Begin

  read(a);

  case a of

    1: s:="I";

    5: s:="V";

    10: s:="X";

    50: s:="C";

    100: s:="C";

    500: s:="I";

    1000: s:="M;

  end;

  writeln(s);

End.

 

римские соответствия не все помню