百度罗京的追悼会视频:问PASCAL的题目

var s,mini:string;
l,i,k,total:integer;
j:booleam;
begin
readln(s);
l:=length(s);
i:=1;
k:=1;
total:=1;
repeat
if (s[i]>='0') and (s[i]<='9')
then begin
mini[k]:=s[i];
i:=i+1;
k:=k+1;
total:=total+1;
j:=true;
end;
else begin
if j:=true
then begin
writlen(mini);
k:=1;
j:=false;
mini:='x'; [无意义，等同清空mini]
end;
i:=i+1;
end;
until i=l;
writlen('the total is:',total);
end.

program Ansxxyl(input,output);
var
s:string;
i,total:integer;
b:boolean;
begin
readln(s);
b:=false;
total:=0;
for i:=1 to length(s) do
if(ord(s[i])>=ord('0'))and(ord(s[i])<=ord('9'))then
begin
b:=true;
write(s[i]);
end
else if b then
begin
writeln;
b:=false;
total:=total+1;
end;
if b then writeln;
writeln(total);
end.