begin readln(S); Tu:=''; Max:=''; S:=S+' '; for i:=1 to length(S) do if S[i]<>' ' then Tu:=Tu+S[i] else begin if length(Tu)>=length(Max) then Max:=Tu; Tu:=''; end; writeln('Tu dai nhat la: ',Max); readln; end.
var st,kq:string; vt,dai,min,d,i:integer; begin write('Nhap xau:'); readln(st); min:=0; st:=st+' '; while length(st)<>0 do begin vt:=pos(' ',st); dai:=vt-1; if min<dai then
begin min:=dai; kq:=copy(st,1,vt-1); d:=d+1; end; delete(st,1,vt); end; d:=0; write('Tu dai nhat trong xau la: ',kq); readln;
