Program Ho_va_ten;
Var HT, H, T :String;
VT,SL, i : Integer;
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.

program bai_giai;

uses crt;

var hovaten,tuoi,hoclop:string;

begin

clrscr;

write('nhap ten:');readln(hovaten);

write('nhap tuoi:');readln(tuoi);

write('hoc lop may:');readln(hoclop);

writeln('ban ten la:',hovaten);

writeln('so tuoi cua ban la:',tuoi);

write('hoc lop:',hoclop);

readln;

end.