Var j,n,i:longint;
a,b:array [1..1000] of integer;
begin
readln(n);// считываем число
i:=1;// начинаем с первого элемента массива
while (n>0) do //пока n больше нуля
begin
a[i]:=n mod 10; //тем самым выбираем последнюю цифру числа
n:=n div 10; // откидываем последнюю цифру
i:=i+1;// следующий элемент массива
end;
// по окончании в массиве a будет храниться наше число только
// в обратном порядке
i:=i-1;// теперь i равно длине числа +1 поэтому отнимаем 1
for j:=i downto 1 do // с конца массива а до 1
begin
b[i-j+1]:=a[j]; // заполняем b в обратном порядке
end;
//теперь в массиве b хранится наше число в нужном порядке
for j:=1 to i do
begin
write(b[j],' ');
end;
end.