7 lines
143 B
Ada
7 lines
143 B
Ada
|
with Ada.Command_Line, Ada.Text_IO;
|
||
|
|
|
||
|
|
procedure Command_Name is
|
||
|
|
begin
|
||
|
|
Ada.Text_IO.Put_Line(Ada.Command_Line.Command_Name);
|
||
|
|
end Command_Name;
|