program FExpand ; uses Dos ; begin writeln('set fexp=', Dos.FExpand(ParamStr(1))) end.