uses crt;
var s,sl,sn,sp,smax: string;
i,j,dmax: byte;
begin
write('s=');
readln(s);
s:=s+' '; sl:=''; sn:='';
dmax:=0;
for i:=1 to length(s) do
if s[i]<>' ' then sl:=sl+s[i] else
if length(sl)>0 then
begin
if length(sl) mod 2=0 then
begin
for j:=1 to length(sl) do
begin
sn:=sn+upcase(sl[j]);
sp:=upcase(sl[j])+sp;
end;
if (sp=sn) and (dmax<length(sp)) then
begin
dmax:=length(sp);
smax:=sl;
end;
end;
sl:=''; sn:=''; sp:='';
end;
writeln('Самое длинное симметричное слово "',smax,'", длиной в ',dmax);
end.