var s,t,x,y:string;
    kts,kts1,ktc,ktc1,kt,kt1,i:longint;
begin
write('Nhap vao xau s = ');readln(s);
write('Nhap vao xau t = ');readln(t);
writeln('Chieu dai xau s = ',length(s));
writeln('Chieu dai xau t = ',length(t));
writeln('Tung ki tu cua xau s: ');
x:='';
y:='';
for i := 1 to length(s) do
begin
 writeln(s[i]);
 if (s[i] in ['0'..'9']) then
   begin
      inc(kts);
      x := x + s[i];
   end;
 if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then inc(ktc);
 if (s[i] = #32) then inc(kt);
end;
writeln('Tung ki tu cua xau t: ');
for i := 1 to length(t) do
begin
 writeln(t[i]);
 if (t[i] in ['0'..'9']) then
   begin
      inc(kts1);
      y := y + t[i];
   end;
 if (t[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then inc(ktc1);
 if (t[i] = #32) then inc(kt1);
end;
writeln('Xau s co : ',kts,' ki tu so',' , ',ktc,' ki tu chu',' , ',kt,' khoang trang ');
writeln('Xau t co : ',kts1,' ki tu so',' , ',ktc1,' ki tu chu',' , ',kt1,' khoang trang ');
writeln('Cac ky tu so cua xau s = ',x);
writeln('Cac ky tu so cua xau t = ',y); 
readln;
end.