Пример реализации модели "Хищник - жертва" на языке PascalABC.NET:

```

program PredatorPrey;

uses GraphABC;

const

MaxIterations = 1000;

InitialPredatorPopulation = 50;

InitialPreyPopulation = 200;

PredatorReproductionRate = 0.05;

PredatorMortalityRate = 0.01;

PreyReproductionRate = 0.1;

PreyMortalityRate = 0.02;

PredatorConsumptionRate = 0.02;

type

TPopulation = record

Predators, Prey: Integer;

end;

var

Population: TPopulation;

procedure InitializePopulation;

begin

Population.Predators := InitialPredatorPopulation;

Population.Prey := InitialPreyPopulation;

end;

procedure DrawPopulation;

begin

SetFontColor(clBlack);

TextOut(10, 10, 'Predators: ' + IntToStr(Population.Predators));

TextOut(10, 30, 'Prey: ' + IntToStr(Population.Prey));

end;

procedure UpdatePopulation;

var

PredatorBirths, PredatorDeaths, PreyBirths, PreyDeaths: Integer;

begin

// Predator population dynamics

PredatorBirths := Trunc(Population.Predators * PredatorReproductionRate);

PredatorDeaths := Trunc(Population.Predators * (PredatorMortalityRate + PredatorConsumptionRate * Population.Prey));

Population.Predators := Population.Predators + PredatorBirths - PredatorDeaths;

// Prey population dynamics

PreyBirths := Trunc(Population.Prey * PreyReproductionRate);

PreyDeaths := Trunc(Population.Prey * PreyMortalityRate - PredatorConsumptionRate * Population.Predators);

Population.Prey := Population.Prey + PreyBirths - PreyDeaths;

// Ensure non-negative population values

if Population.Predators < 0 then Population.Predators := 0;

if Population.Prey < 0 then Population.Prey := 0;

end;

var

i: Integer;

begin

InitializePopulation;

SetWindowSize(500, 500);

SetWindowTitle('Predator-Prey Model');

for i := 1 to MaxIterations do begin

ClearWindow;

DrawPopulation;

UpdatePopulation;

Sleep(100);

end;

end.

```

В данной модели переменные в начале программы хранят параметры модели: количество итераций (MaxIterations), начальное количество хищников и жертв (InitialPredatorPopulation и InitialPreyPopulation соответственно), скорости рождаемости и смертности хищников и жертв (PredatorReproductionRate, PredatorMortalityRate, PreyReproductionRate и PreyMortalityRate), а также скорость потребления хищником жертв (PredatorConsumptionRate).

Процедура InitializePopulation задает начальные значения численности хищников и жертв. Процедура DrawPopulation рисует текущее значение численности на экране. Процедура UpdatePopulation обновляет численность на каждой итерации с учетом динамики численности хищников и жертв.

Для запуска модели производится инициализация начального состояния популяций в процедуре InitializePopulation, затем она запускается на некоторое количество итераций (MaxIterations) в цикле. На каждой итерации производится обновление численности популяций в процедуре UpdatePopulation, а затем на экран выводится текущее состояние численности в процедуре DrawPopulation.

В результате запуска модели можно наблюдать динамику численности хищников и жертв во времени.