program inten;
var ht:string; i,n:byte;
begin
 write('Nhap ho ten: ');
 readln(ht);
 n:=length(ht);
 for i:=n downto 1 do
 if ht[i]=' ' then
 begin
 delete(ht,1,i);
 break;{dung de thoat khoi vong lap}
 end;
 write('Ten: ',ht);
 readln;
end.