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.

uses crt;
var s,max,a:string; i,n:longint;
function dx(s:string):boolean;
var i:longint;
begin
   dx:=true;
   for i:=1 to length(s) div 2 do 
      if s[i]<>s[length(s)-i+1] then dx:=false;
end;
begin 
clrscr;
   write('s=');readln(s);
   s:=' '+s+' ';
   for i:=2 to length(s) Do 
      if (s[i]=' ')and(s[i+1]<>' ') then 
         begin 
            inc(n);
            if (dx(a))and(length(a)>length(max)) then
               max:=a;
            a:='';
         end else 
      if s[i]<>' ' then a:=a+s[i];
   writeln('Co ',n-1,' tu');
   if max='' then writeln('Khong co tu doi xung') else writeln(max);
readln
end.