program ho_ten;

uses crt;

var s,ho,ten:string;

      i:byte;

begin

        clrscr;

        write('Nhap ho va ten: ');  readln(s);

        i:=1;  ho:='';

        while s[i]<>' ' do

                begin

                        ho:=ho+s[i];

                        i:=i+1;

                end;

        writeln('Ho cua nguoi do la: ',ho);

        i:=length(s);  ten:='';

        while s[i]<>' ' do

                begin

                        ten:=s[i]+ten;

                        i:=i-1;

                end;

        write('Ten cua nguoi do la: ',ten);

        readln;

end.

program Vddd;
uses crt;
var  s1,s,s2:string;
      i,j: integer;
begin
      clrscr;
      write('Nhap xau s: ');readln(s);
          i:=1; j:=length(s);
          while s[i] <> ' ' do
                begin
             s1:= s1 + s[i];
             i:= i+1;
                end;
      writeln('Ho la: ',s1);
          while s[j] <> ' ' do
                 begin
              s2:= s[j] + s2;
              j:=j-1;
                 end;
       write('Ten la: ',s2);
    
readln;
end.