универсальный вариант. Долго над решением думать не хотелось, так что ответ такой. Поскольку ограничений на решение не было)
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
var
n: integer;
s: string;
begin
readln(n);
s := '';
while n > 0 do
begin
s := (n mod 10).ToString() + '0
' + s;
n := n div 10;
end;
writeln(s);
end.