var stri: string; i: byte;
begin
write('Nhap ho va ten hoc sinh: ');
readln(stri);
writeln('Phan ho: ',copy(stri,1,pos(' ',stri)));
for i:=length(stri) downto pos(' ',stri) do
if stri[i]=' ' then
begin
writeln('Phan ten: ',copy(stri,i+1,length(stri)));
break;
end;
readln
end.