Programmēšanas valodas - paralēlā programmēšana

-- Izmantotas bibliotékas
with Text_io;
use Text_io;
with Ada.Integer_text_io;
use Ada.Integer_text_io;

-- Galvená programmas procedúra
procedure Svetki is

-- Kastes TASK´a definícija
task type Box is

entry get_sweets(s_weight: out integer);

entry get_cookies(c_weight: out integer);
end Box;
…