Lâu mình chưa code pascal, sai lỗi nhỏ xin thông cảm :)
Var n : Integer,
Pow: Integer;
BEGIN
Readln(n);
Pow := 1;
While pow <= n do Pow := Pow * 10;
Pow := Pow div 10;
While (Pow > 0)
Begin
Writeln(n div Pow, ' ');
n := n mod Pow;
Pow := Pow div 10;
End;
END.