uses crt;
var x,xs,xc:string;i,dem:longint;
begin
clrscr;
write('nhap xau x:');readln(x);
writeln('cau a');
xs:='';
xc:='';
for i:=1 to length(x)do if(x[i]in['1'..'9'])then xs:=xs+x[i];
for i:=1 to length(x)do if(x[i]in['a'..'z'])then xc:=xc+x[i];
writeln('xau so la:',xs);
writeln('xau chu la:',xc);
writeln('cau b');
for i:=1 to length(x) do if(x[i+1]<>' ')then inc(dem);
writeln(dem);
writeln('cau c');
for i:=1 to length(x) do
begin
write(x[i]);
if(x[i+1]=' ')then writeln;
end;
readln;
end.