with TEXT_IO,ada.integer_text_io,ada.command_line;
 use TEXT_IO,ada.integer_text_io,ada.command_line;
procedure tp is
task type kiir(nev:INTEGER:=42);
task body kiir is
 begin
  loop
   put(nev);
   new_line;
   if argument_count>0 then
    delay duration'value(argument(1));
   end if;
  end loop;
 end kiir;

a:kiir;
b:kiir(1);
c:kiir(2);
begin
 put(0);
 new_line;
end;