program stringharomszogben;
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 i do write(s[j]);
       writeln
     end;
     readln
end.