program palindrome;

uses crt;
var s : string;
var max_subparlindrome : integer;
var sub_parlindrome : string;
function reverse(s : string) : string;
var i,n : integer;
var s_reverse : string;
begin
   n := length(s);
   s_reverse := '';
   for i:=n downto 1 do s_reverse := s_reverse + string(s[i]);
   reverse :=s_reverse;
end;
function max_parlindrome(s : string) : integer;
var i, n : integer;
var substr : string;
var max  : integer;
begin
   n := length(s);
   max :=0;
   for i:=1 to n do begin
      substr := copy(s,1,i);
      if substr = reverse(substr) then max:=i
   end;
   max_parlindrome:=max;
end;
BEGIN
 clrscr;
 write('s = '); readln(s);
 while(length(s) > 0) do begin
    max_subparlindrome := max_parlindrome(s);
    sub_parlindrome:= copy(s,1,max_subparlindrome);
    writeln(sub_parlindrome);
    s:=copy(s,max_subparlindrome + 1,length(s));
 end;
 readln;
END.