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.
UHJvZ3JhbSBkdXBsaWNhdGVfY2hhaW5lOwpWYXIgY2g6c3RyaW5nWzIwXTsKcmVzOnN0cmluZzsKaSxqOmludGVnZXI7CkJlZ2luCldyaXRlbG4oJ2NoID0gJyk7CnJlYWRsbihjaCk7CnJlczo9Jyc7CkZvciBpOj0xIFRvIGxlbmd0aChjaCkgRG8KRm9yIGo6PTEgVG8gaSBEbwpyZXM6PXJlcytjaFtpXTsKV3JpdGVsbihyZXMpOwpFbmQu