freepascal.compiler/docs/linuxex/ex45.pp

Program Example45;

{ Program to demonstrate the FExpand function. }

Uses linux;

begin
  Writeln ('This program is in : ',FExpand(Paramstr(0)));
end.