var hoten,x,y:string;
a,b,c,d:integer;
begin
write('nhap ho ten'); readln(hoten);
for a:=1 to length(hoten) do
if hoten[a]:=' ' then b:=a;
for c:=1 to b do
X:=x + hoten[c]...