procedure Proverka(var as1,as2:string);
var j,e,m:byte;
f:boolean;
begin
m:=Length(as1);
e:=0;
f:=true;
for j:=1 to (m div 2) do
if as1[j]=as1[m-j+1]
then e:=e+1
else
begin
f:=false;
as1:='';
Break
end;
if f then
if m>Length(as2)
then
begin
as2:=as1;
as1:='';
end;
end;
var s,s1,s2:string;
i:byte;
begin
Writeln('Vvedite stroku:');
Readln(s);
Writeln;
s1:=''; s2:=''; i:=0;
While i<Length(s) do
begin
i:=i+1;
if i=Length(s) then
begin
s1:=s1+s[i];
if Length(s1)=1
then s1:=''
else Proverka(s1,s2);
end else
if s[i]<>' '
then s1:=s1+s[i]
else
if Length(s1)=1
then s1:=''
else Proverka(s1,s2);
end;
if Length(s2)>0
then Writeln('Samoe dlinnoe sim. slovo: '+s2)
else Writeln('Net simmetricnih slov');
Readln;
end.