.


. - . 226


entry __ (: in );

entry __ (: out );

end ;

-- , .

task body A is

: ;

: ;

begin

loop

accept (: in ) do

:= ; --

end ;

... --

... -- ,

... -- ""

__ (); --

end loop ;--,

end A;

[A C!]

, _.

 

4.14.5. ( _)

, _ , "" "", - , ("") (""). , "" "" . , .

- . , , . - . , .. , (.. ) , ( , ).




- -  - -  - -