uses crt; var a,b:array[1..1000] of word; i,n:word; st:string; begin clrscr; n:=0; readln(st); while pos(' ',st)<>0 do delete(st,pos(' ',st),1); if st[1]=' ' then delete(st,1,1); if st[length(st)]<>' ' then st:=st+' '; while pos(' ',st)<>0 do begin inc(n); val(copy(st,1,pos(' ',st)-1),a[n]); delete(st,1,pos(' ',st)); end; for i:=1 to n do read(b[i]); for i:=1 to n do write(b[i],a[i]); readln;readln; end.
