Program NN;
Uses crt;
Var St,S: String;
Begin
Clrscr;
Write('Nhap St: '); Readln(St);
While St[1]=#32 do Delete(St,1,1);
While St[length(St)]=#32 do Delete(St,length(St),1);
While Pos(#32#32,St)<>0 do Delete(St,Pos(#32#32,St),1);
Write('Nhap S: '); Readln(S);
While St[1]<>#32 do Delete(St,1,1);
Write(S,St);
Readln
End.