with Ada.Command_Line;
use Ada.Command_Line;
with text_io; use Text_io;

procedure Parancssor is
begin
	Put_Line("A kiadott parancs a következô volt: " & Command_Name);
	Put_Line("A parancs argumentumai pedig:");
	for i in 1..Argument_Count loop
		Put_Line(Ascii.ht & Argument(i));
	end loop;
end Parancssor;