Xlcdm перевести в арабские цифры. распишите , как получали

в римской системе из левого большего числа вычитается правое меньшее.

xlcdm

x- 10

l-50

c-100

d-500

m-1000

получается из m-d-c-l-x= 1000-500-100-50-10=340

ответ- 340

чернила были красные и черные. весь текст писался чернилами черного цвета, а начало  каждого нового раздела, т.е. новой мысли выделяли красными чернилами, так появилось выражение "красная строка", которым мы и сейчас обозначаем новую строку в начале абзаца.

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.