package Neuron is
---------------------------------------------------------------------------
type Synapses_Type is array(natural range <>) of float;
type Neuron_Type(Synapses_Count: natural) is
       record
         Synapses: Synapses_Type(1..Synapses_Count);
       end record;
procedure Initialize(Neuron: in out Neuron_Type);
procedure Show_State(Neuron: in Neuron_Type);
---------------------------------------------------------------------------
end Neuron;