program z9;
uses crt;
var i,n,k:integer;a,m:real;
BEGIN
clrscr;
writeln('n');
readln(n);
a:=n; k:=0;
while a>0 do begin
a:=int(a/10);
k:=k+1;
end;
writeln(k:5);
a:=n;
if a-int(a/100)=int(a/(exp(k*ln(10)))) then
writeln('polindrom') else writeln('ne polindrom');
readln;
END.