program NumeriRomaniDecrescenti;
var
ch : char;
somma : integer;
function Romano2Intero (ch : char) : integer;
begin
case ch of
'I' : Romano2Intero := 1;
'V' : Romano2Intero := 5;
'X' : Romano2Intero := 10;
'L' : Romano2Intero := 50;
'C' : Romano2Intero := 100;
'D' : Romano2Intero := 500;
'M' : Romano2Intero := 1000;
end
end;
begin
somma := 0;
writeln('Inserisci un numero romano (senza spazi) terminato da un punto !');
writeln('Le cifre (M,D,C,L,X,V,I) devono comparire in ordine decrescente!');
read(ch);
while ch <> '.' do
begin
somma := somma + Romano2Intero(ch);
read(ch)
end;
writeln('Numero corrispondente : ', somma)
end.