1
2
3
4
5
6
uses
  SysUtils;

begin
  Writeln(ExtractFilename(ParamStr(0)));
end.