только чтоб не была похожа вот на эту ->
var
number: integer;

begin

readln(number);

for var i := 1 to number.ToString().Length do

writeln('Разряд ' + Power(10, i - 1) + ': ' + number.ToString()[i]);

end.

mansya01    3   17.05.2020 13:18    2