Для создания рекламы приглашений и т.д
MMVII=2007
CDXLVIII=448
MCMLIV=1954
MCDXXIII=1423
<span>LXXIX=79
</span>MMCXLI=2141
1 3 9 8 24 23
Единицу мы умножаем на 3 и получаем 3
Тройку мы умножаем на 3 и получаем 9
Из девятки мы вычитаем 1 и получаем 8
Восьмёрку мы умножаем на 3 и получаем 24
Из 24 мы вычитаем 1 и получаем 23
Ответ: 11212
///////////////////////////////////////////
Var
a, b:integer;
f,w:text;
begin
assign(f,'input.txt');reset(f);
assign(w, 'output.txt');rewrite(w);
Readln(f, a, b);
if (a > b) then Writeln(w, '>');
if (a < b) then Writeln(w, '<');
if (a = b) then Writeln(w, '=');
close(f);close(w);
end.
<u>Пример:
</u>input.txt: 100 99
output.txt : >
<u></u>