[NumLock]

Код:

begin
readln(chislo);
s:=IntToStr(chislo);
l:=length(s);
SetLength(r, l);
writeln(l);
for i:=1 to l do
  begin
  r[i]:=chislo mod 10;
  writeln(r[i]);
  chislo := chislo div 10;
  end;
readln;
end.