program Project2; {$APPTYPE CONSOLE} uses SysUtils; begin writeln(ExpandFileName('unit1.pas' ) ); readln; end.