Program duplicate_chaine;
Var ch:string[20];
res:string;
i,j:integer;
Begin
Writeln('ch = ');
readln(ch);
res:='';
For i:=1 To length(ch) Do
For j:=1 To i Do
res:=res+ch[i];
Writeln(res);
End.