uses crt; var s,st:string; begin clrscr; readln(s); st:=''; while s[length(s)]<>' ' do begin st:=s[length(s)]+st; delete(s,length(s),1); end; write(st); readln; end.
var str,kq:string; i: byte; begin write('Nhap chuoi ho ten: '); readln(str); i:=length(str); while (i>1) and (str[i]<>' ') do i:=i-1; kq:=copy(str,i,length(str)-i+1); write('Ket qua: ',kq); readln end.
