Дано двузначное римское число, определить его десятичное значение. (паскаль) помогите, срочно, взаранее спасибо)))  вот обозначения некоторых: I - "1"; V - "5"; X - "10"; L - "50"

var a1, b1: integer; a, b: char; begin      read(a, b);      case a of      'i': a1 := 1;      'v': a1 := 5;      'x': a1 := 10;      'l': a1 := 50      end;      case b of      'i': b1 := 1;      'v': b1 := 5;      'x': b1 := 10;      'l': b1 := 50      end;      if a1 < b1      then          writeln(b1 - a1)      else          writeln(a1 + b1); end.