uses School; // стандартная библиотека школьника
begin
var n := ReadInt64('Введи натуральное число');
var a := n.Digits;
a.Print
end.
