给出一个不多于5位的正整数,求它是几位数,并分别打印出各位上的数字。

这种题目用数组或者数来做都不好，就用字符串吧。
program hy7226372;
var
s:string;
begin
readln(s);
write(length(s));{length是用来计算字符串的位数的}
for i:=1 to length(s) do
writeln(s);{依次打印}
readln
end.

readln(n);
while n<>0 do
begin
write(n mod 10);
n:=n div 10;
s:=s+1;
end;
writeln(s);

var
a:string;
i:integer;
begin
readln(a);
writeln(length(a));
for i:=1 to length(a) do
writeln(a[i]);
end.

program wt(input,output);
var
p,b:longint;
begin
readln(b);
while b<>0 do
begin
write(b mod 10);
b:=b div 10;
inc(p);
end;
writeln(p);
end.