Запишите римские числа в десятичной системе счисления ( cмlxxxviii)

21354862 а потом надо сделать так чтобы

var  

    n: integer;

    i: integer;

    sum: integer;

    result: integer;

begin

    writeln('введите значение n: ');

    readln(n);

   

    sum : = 0;     result : = 1;

    for i : = 1 to n do

    begin

        sum : = sum + i;

        result : = sum * result;

    end;

    writeln('конечное значение = ', result);

end.

// pascalabc.net 3.4.2, сборка 1785 от 06.09.2018

// внимание! если программа не работает, обновите версию!

begin

  var (m,n): =(3,readinteger('n ='));

  seqgen(n-1,m,t-> begin result: =t+m; m+=1 end)

      .aggregate(biginteger(,q)-> p*q).println

end.

n = 5

2700

n = 92

2905717351708908985405643744987697767130796956644732769142761496541317116624931720391311988753812039943077115478561297954388733569194661753822436538090873756174074892748228397527408937781819534979620536526957830995968000000000000000000000000000000000000000000