program exe1;
   var
      i,j,k,q,flag:integer;
      word:string;
      ot:char;
   begin
      flag:=1;
      writeln('insert word');
      readln(word);
      i:=0;
      while i<11 do
         begin
            inc(i);
            if flag=1 then
               begin
                  ot:=word;
                  if (ord (ot)>48) and (ord (ot)<58) then
                     begin
                        flag:=2;
                        for j:=1 to i-2 do
                           write(word);
                        for k:=1 to 5 do
                           write(word);
                        for q:=i+1 to 10 do
                           write(word);
                     end;
               end;
         end;
   end.