fpc/utils/instantfpc/examples/getworkingdirectory.pas

#!/usr/bin/env instantfpc
{$mode objfpc}{$H+}
uses
  SysUtils;
begin
  writeln(GetCurrentDir);
end.