(чтоб не мешали 20 символов) ответ: 170 байт
Программа и результат работы в приложениях.
Ряд вычисляется двумя путями.
В цикле и рекурсивно.
Пришел хороший мальчик.
Затихла бурная сирень.
VAR N,a,b,c:INTEGER;
begin
Readln(n);
a:=(n mod 100)div 10;
b:=(n mod 100)mod 10;
c:=n div 100;
writeln(b,a,c);<span>
end.</span>