program stringharomszogbenvisszafele;
var s:string;
    i,j:byte;
begin
     WriteLn('Kerem a sztringet!');
     ReadLn(s);
     for i:=1 to length(s) do
     begin
      for j:=1 to length(s)-i+1 do
       write(s[j]);
      writeln;
     end;
     readln
end.