RosettaCodeData/Task/Program-name/Pascal/program-name.pas

program ScriptName;
var
	prog : String;
begin
	prog := ParamStr(0);
	write('Program: ');
	writeln(prog)
end.