var
s:string;
begin
readln(s);
while pos('  ',s)<>0 do
delete(s,pos('  ',s),1);
while s[1]=' ' do
delete(s,1,1);
while s[length(s)]=' ' do
delete(s,length(s),1);
writeln(s)
end.

var    s: string;
i,k,l,d: integer;
      b: boolean;
begin
writeln('vvedite stroku: ');
readln(s);
b:= true;
d:= length(s);
l:= d div 2;
for i:=1 to l do
if s[i]<>s[d+1-i] then b:=false;
if b=true then writeln ('palindrom') else
writeln('ne palindrom');
readln;
end.