Ввести элементы одномерного массива длинной 40 как значение функции ln(1+x) для х от -5 до 15 с шагом 0,5

const
    h = 0.5;
    n = 40;
 
var
    a : Array[1..n] Of Double;
    minID, i : Byte;
    x : Single = -5;
    infCount : Byte = 0;
    count : Byte = 0;
    mult : Double = 1;
    min : Double;
begin
    //заполняем и выводим
    for i := 1 to n do
    begin
        if (x > -1) then
        begin
            a[i] := ln(1 + x);
            x := x + h;
            Write(a[i]:6:2);
        end
        else
        begin
            Inc(infCount);
            Write('  -inf');
        end;
        x := x + h;
    end;
    WriteLn;
    min := a[infCount+1]; minID := infCount+1;
    for i := infCount+1 to n do
    begin
        if ((a[i] >= 1) And (a[i] <= 3)) then //1..3
            Inc(count);
        if (a[i] > 1) then //произведение
            mult := mult * a[i];
        if (min > a[i]) then //поиск минимума
        begin
            minID := i;
            min := a[i];
        end;
    end;
    WriteLn('Количество в диапазоне 1..3: ', count);
    WriteLn('Произведение элементов больших 1: ', mult:6:2);
    WriteLn('Минимальный элемент: a[', minID, ']=', min:6:2);
end.

{$APPTYPE CONSOLE}
uses SysUtils;

const n=31;
var a:array[1..n]of real;
    i,imn,k:byte;
    x,mn,p:real;
begin
x:=0;
i:=1;
while x<=15 do
 begin
  a[i]:=ln(1+x);
  x:=x+0.5;
  i:=i+1;
 end;
writeln('Полученный массив');
mn:=a[1];
imn:=1;
k:=0;
p:=1;
for i:=1 to n do
 begin
  write(a[i]:5:2);
  if a[i]<mn then
   begin
    mn:=a[i];
    imn:=i;
   end;
  if(a[i]>=1)and(a[i]<=3) then k:=k+1;
  if a[i]>1 then p:=p*a[i];
 end;
writeln;
writeln('Минимальный элемент=',mn:0:2,' его номер=',imn);
writeln('Количество элементов в диапазоне [1;3]=',k);
writeln('Произведение элементов больших 1=',p:0:2);
end.