procedure Prog is

   task Producent is
      begin
loop
         Produkuj();
         Bufor.wstaw();

         end loop;

 end Producent;


task konsument is
      loop
         Konsumuj();
         Bufor.pobierz();

         end loop;

   end konsument;



    task Bufor is
entry wstaw (I: in Integer);
entry pobierz (I: out Integer);

   end Bufor;

   select
      accept wstaw (I: in Integer) do
         -- instrukcje
         end wstaw;
        or
      accept pobierz (I: out Integer) do
         -- instrukcje
         end pobierz;
   end select;