Roman numerals/Decode: Difference between revisions

Content added Content deleted
({{header|PascalABC.NET}})
Line 5,293: Line 5,293:
L = 'IVXLCDM';
L = 'IVXLCDM';
begin
begin
var S := 'MDCLXVI';//ReadLnString('roman numeral:');//MDCLXVI
var S := 'MDCLXVI';//'roman numeral:';
Write(S,': ');
Write(S,': ');
var index := 1;
var index := 1;