Program Tao_Xau_Ho_Ten; 
Var HT, H, T :String; 
VT,SL, i : Byte; 
Begin 
Write('Nhap Ho va Ten 1 nguoi :'); Readln(HT); 
i:=1; SL:=0; 
While HT[i]<>' ' do 
Begin 
SL:=SL+1; 
i:=i+1; 
End; 
H:=Copy(HT,1,SL); 
i:=Length(HT); SL:=0; 
While HT[i]<>' ' do 
Begin 
SL:=SL+1; 
i:=i -1; 
End; 
VT:=Length(HT) - SL +1; 
T := Copy(HT,VT,SL); 
Writeln('Ho la :',H); 
Writeln('Ten la :,T); 
Readln