function demo2: double;

var

Hndl: LongInt;

input: Array[0..3] of Double ;

output: Double;

begin

        Hndl = createmodel(4, 1, 3, "");

       // Random generator initialization

         SetRandSeed(1947);

// parameters initialisation

  ModelAction(Hndl, maInitParams);

  for i := 0 to 3 do

    input[i] = 0.0;

// Data transfer through the network. Result is stored in output

         Transfer(Hndl, @input, @output, nil, nil, o, trSimple);

DestroyModel(Hndl);

 result := Output;

end;