my program

["Kasia Krysiak" <kasiool@o2.pl>]

I'm start to lern ada , and i have some problems...
 this is my new program, and i have a question how to inicialize
Task1:Male(Id=>1); Task2:Male(Id=>2); task3:male(id=>3); (last 3 lines of
code in loop? becouse i should to have the number od male dymaic. I tryided
to do this in arry but i couldnt inlicjalize this id's  sorry 4 my english
it isnt good I KNOW!!! - but I'm trying :)
task type Male(Id: integer);

task body Male is

procedure zadzwon is

Zmienna_Plikowa :File_Type;

begin



create(zmienna_plikowa,out_file, "id.txt");

end zadzwon;


procedure Wlasne_Sprawy is

begin

for counter in 1..10 loop

new_line;

Put(Item => "dupa ");


end loop;

end wlasne_sprawy;


begin

zadzwon;

Wlasne_Sprawy;

end Male;


Task1:Male(Id=>1);

Task2:Male(Id=>2);

task3:male(id=>3);