I=1, X=10, C=100, M=1000 и их половины V=5, L=50, D=500
<span>MCXLVII=1147</span>
<em>// PascalABC.NET 3.2, сборка 1436 от 01.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('Вводите:').ToWords.Select(w->w.ToLower)
.Where(w->w=w.Inverse).Println
end.
<u>Пример</u>
Вводите: Шла Алла по дороге видит дед несет наган
алла дед наган
Алгоритм нахождения периметра
1) Вводим a и b
2) Решаем по формуле P=a+b
3) Выводим Р
4) Конец