var s,s1:string; i,len:integer;begin s:='D:\Downloads\InnoExtractor\setup.exe'; len:=length(s); for i:=len downto 1 do if s[i]='\' then break; s1:=copy(s,1,i-1); writeln(s1);end.
