program xau_chu_cai;
uses crt;
var s1,s2:string;
i:byte;
begin
clrscr;
write('Nhap xau s1: '); readln(S1);
s2:='';
for i:=1 to length(s1) do
if (s1[i] in ['a'..'z]) or (s1[i] in ['A'..'Z']) then s2:=s2+s1[i];
writeln('Do dai xau moi la: ',length(s2));
writeln('Xau moi la: ',s2);
readln;
end.