program chen; uses crt; var a,b,s:string; n,i:integer; begin clrscr; write('Nhap xau a: '); readln(a); write('Nhap xau b: '); readln(b); write('Nhap n: '); readln(n); s:=''; for i:=n to length(b) do begin s:=s+b[i]; b[i]:=' '; end; while b[length(b)]=' ' do delete(b,length(b),1); b:=b+a+s; write(b); readln; end.