<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x: int64;
Readln(x);
Format('{0:#0 000 00 0}', x).Println
end.
Даже не знаю) очень сложно для меня
Паук
1 Парк
2 Пара
3 Фара
4 Тара
5 ? .. (ни как не могу придумать )
Лужа
1 Ложа
2 Кожа
3 Кора
4 Гора
5 Горе
558+417 в девятичной
1077 (это точно)