Орешек знанья - тверд,
но все же
мы не привыкли отступать
на расколоть его поможет...


Код:
var_input
  задатьрасход,
  задатьуровень,
  k, //некий настроечный коэфф

  текущийзалив,
  текущийслив,
  текущийуровень : real;

var_output
  заливать,
  сливать  : real; //%

var
  diff : real;
  залив, слив : pid := (y_min := 0, y_max := 100); //util.lib



diff := (задатьуровень - текущийуровень) * k;

залив(
  set_point := задатьрасход + diff,
  actual := текущийзалив,
  ...
  y => заливать
);

слив(
  set_point := задатьрасход - diff,
  actual := текущийслив,
  ...
  y => сливать
);