Мне завтра её сдавать ,а у меня не получается. я люблю информатику и обычно сам всё решаю ,но тут встал в тупик,! 54 ! (язык pascal abc) дано число x. требуется перевести это число в римскую систему счисления. входные данные дано число x в десятичной системе счисления (1 ≤ x ≤ 100). выходные данные выведите x в римской системе счисления. примеры входные данные 4 выходные данные iv входные данные 19 выходные данные xix входные данные 46 выходные данные xlvi

A,b: integer;   d: string[45];   begin  setconsoleoutputcp(1251);   writeln('введите число в диапазоне от 1 дo 100');   write('a=');   readln(a);   b: =a mod 10;   a: =a div 10;   case b of  0: d: ='';   1: d: ='i';   2: d: ='ii';   3: d: ='iii';   4: d: ='iv';   5: d: ='v';   6: d: ='vi';   7: d: ='vii';   8: d: ='viii';   9: d: ='ix';   end;   b: =a mod 10;   a: =a div 10;   case b of  0: d: =''+d;   1: d: ='x'+d;   2: d: ='xx'+d;   3: d: ='xxx'+d;   4: d: ='xl'+d;   5: d: ='l'+d;   6: d: ='lx'+d;   7: d: ='lxx'+d;   8: d: ='lxxx'+d;   9: d: ='xc'+d;   end;   b: =a mod 10;   a: = a div 10;   case b of  0: d: =''+d;   1: d: ='c'+d;   end;   writeln('b римской системе счисления ' ,d);   readln;   end.