Программа вычисления сложного примера в Pascal

[mishammm]

Сама задачка(картинка, задание №1)
Код работает, массив a[i] , b[i] вводяться нормально но вот проблемка что в итоге результат q даёт безконечность (картинка)
Вот код:

program laba9_2;
const
m1=3; m2=3; m3=3;
   k1=2; k2=1; k3=4;
   l1=7; l2= 5; l3=10;
   n=10;
   x:real=1.5;
   y:real=0.5;
   type 
       vector=array[1..n] of real;
       var 
          i:integer;
          r,a,b:vector;
          q,d1,d2,d3:real;
          function kor(m:integer; p,q:real):real;
          begin
          kor:=ln(abs(1+p));
          end;
          Procedure dob(k,l:integer; r:vector; var d:real);
          var
             i:integer;
       begin
            d:=0;
           for i:=k to l do 
           d:=d*r[i];
           end;
           begin
         
           writeln('VVedi massiv a(10):');
           for i:=1 to n do
           readln(a[i]);
           writeln('vvedi massiv b(10):');
           for i:=1 to n do
           readln(b[i]);
           for i:=k1 to l1 do
           r[i]:=exp((1/3) * ln(a[i])) + exp(3 *ln(b[i])); 
           dob(k1,l1,r,d1);
                           {обчислення 2 суми}
           for i:=k2 to l2 do
           r[i]:= exp((1/3) * ln(a[i])) + sqr(b[i]);
           dob(k2,l2,r,d2);

{3 сума}   
for i:=k3 to l3 do
r[i]:=exp((1/3) * ln(a[i])) + exp(3 *ln(b[i])); 
dob(k3,l3,r,d3);
{обчислення z}
q:=kor(m1,1,x*tan(y))/d1+d2/kor(m2,1,2*tan(y))+kor(m3,1,tan(1.3))/d3;
writeln('q=',q);
end.

помогите пожалуйста найти в этом монотонном коде ошибку

[mishammm]

может что то с функцией и ёё вызовом ??

[mishammm]

все вроде уже работает присвоил значение d:=1. не заметил елементарного ) ну может еще что то неправильно и не вижу ....