uses crt;
var s,s1,s2,s3:string; i,d,a,t:longint;
begin
clrscr;
   write('Nhap xau s: ');readln(s);
   for i:=1 to length(s) do  
      begin 
         if upcase(s[i]) in ['A'..'Z'] then s1:=s1+s[i] else
         if s[i] in ['0'..'9'] then begin s2:=s2+s[i]; val(s[i],a); t:=t+a; end else
         if s[i]=' ' then inc(d) else 
         s3:=s3+s[i];
      end;
   writeln(s1);
   writeln(s2);
   writeln(s3);
   writeln(length(s1));
   writeln(length(s3));
   writeln(d);
   writeln(t);
readln
end.

uses crt;
var s,s1,s2,s3:string;
    i,d:byte;
    t:longword;
begin
    clrscr;
    readln(s);
    for i:=1 to length(s) do
       if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then
          s1:=s1+s[i]
       else if s[i] in ['0'..'9'] then s2:=s2+s[i]
       else if s[i]=' ' then inc(d)
       else s3:=s3+s[i];
    if length(s2)<>0 then
       t:=ord(s2[1])-48;
    for i:=2 to length(s2) do
      t:=t+ord(s2[i])-48;
    writeln('Co ',length(s1),' chu cai');
    writeln('Co ',length(s3),' ki tu dac biet');
    writeln('Co ',d,' khoang cach');
    writeln('Tong cac ki tu so: ',t);
readln;
end.