8 lines
109 B
Text
8 lines
109 B
Text
program ScriptName;
|
|
var
|
|
prog : String;
|
|
begin
|
|
prog := ParamStr(0);
|
|
write('Program: ');
|
|
writeln(prog)
|
|
end.
|