Напишите программу которая создаёт одномерный массив из 400 позиций заполняет его целыми случайными числами и считает количество честных и ннчётных значений. вывести результат подсчета

Код Pascal;

Var
   x,y,v,h,dx:real;
Begin
Write('y = ');ReadLn(y);
Write('v = ');ReadLn(v);
Write('h = ');ReadLn(h);
dx:=0.31;
x:=-4;
Repeat
WriteLn('f(',x,') = ',Exp(Sin(y)*Abs(x))-3*Sqrt(v-h));
x:=x+dx;
Until x > -1
End.

Пример работы программы:

y = 3
v = 4
h = 2
f(-4) = -2.4841075227142
f(-3.69) = -2.55937994576573
f(-3.38) = -2.63143040076643
f(-3.07) = -2.70039680114727
f(-2.76) = -2.76641115707942
f(-2.45) = -2.82959982815798
f(-2.14) = -2.89008376526975
f(-1.83) = -2.94797874210812
f(-1.52) = -3.00339557677815
f(-1.21) = -3.05644034391605

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=3.0;
  var y:real;
  while x<=7.51 do begin
    if x<=4 then y:=Sin(2*x+1)
    else if x<=6 then y:=x*x-Sqrt(x)
    else y:=3*ln(x);
    Writeln(x:4:2,y:15:8);
    x+=0.25
    end
end.

Результат
3.00     0.65698660
3.25     0.93799998
3.50     0.98935825
3.75     0.79848711
4.00     0.41211849
4.25    16.00094719
4.50    18.12867966
4.75    20.38305053
5.00    22.76393202
5.25    25.27121215
5.50    27.90479212
5.75    30.66458424
6.00    33.55051026
6.25     5.49774439
6.50     5.61540653
6.75     5.72862751
7.00     5.83773045
7.25     5.94300441
7.50     6.04470906