program bai_giai;
uses crt;
var xau:array[1..255] of string;
s:string;
i,d:byte;
function ktdx(st:string):boolean;
var r:byte;
begin
ktdx:=true;
for r:=1 to length(st) div 2 do
if st[r]<>st[length(st)-r+1] then exit(false);
end;
BEGIN
clrscr;
write('Nhap xau: '); readln(s);
while s[1]=#32 do delete(s,1,1);
while s[length(s)]=#32 do delete(s,length(s),1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);
d:=1;
for i:=1 to length(s) do
if s[i]<>#32 then xau[d]:=xau[d]+s[i]
else d:=d+1;
writeln('Co ',d,' tu');
for i:=1 to d do
if ktdx(xau[i]) then write(xau[i],' ');
readln;
end.