Ответ:

program aaa;

var val : string;

begin

 read(val);

   if (val = 'I') or (val = 'i') then

     writeln(1)

     else if (val = 'II') or (val = 'ii') then

       writeln(2)

      else if (val = 'III') or (val = 'iii') then

       writeln(3)

      else if (val = 'IV') or (val = 'iv') then

       writeln(4)

      else if (val = 'V') or (val = 'v') then

       writeln(5)

      else if (val = 'VI') or (val = 'vi') then

       writeln(6)

      else if (val = 'VII') or (val = 'vii') then

       writeln(7)

      else if (val = 'VIII') or (val = 'viii') then

       writeln(8)

      else if (val = 'IX') or (val = 'ix') then

       writeln(9)

       else if (val = 'X') or (val = 'x') then

       writeln(10)

end.

Объяснение: