From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM,XPRIO
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,bcfc1b9a77ff8cc0,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-12-29 07:07:25 PST
Path: 
 archiver1.google.com!news2.google.com!newsfeed2.dallas1.level3.net!news.level3.com!news-out.visi.com!petbe.visi.com!proxad.net!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: "Kasia Krysiak" <kasiool@o2.pl>
Newsgroups: comp.lang.ada
Subject: my program
Date: Mon, 29 Dec 2003 16:07:17 +0100
Organization: tp.internet - http://www.tpi.pl/
Message-ID: <bspfvv$mpo$1@atlantis.news.tpi.pl>
NNTP-Posting-Host: rt112.neoplus.adsl.tpnet.pl
X-Trace: atlantis.news.tpi.pl 1072710463 23352 80.50.106.112 (29 Dec 2003
 15:07:43 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Mon, 29 Dec 2003 15:07:43 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Xref: archiver1.google.com comp.lang.ada:3924
Date: 2003-12-29T16:07:17+01:00
List-Id: <comp.lang.ada>

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);