Найти произведение: \frac{(k^{2} +3)( k^{2}+5)( k^{2} +7)**( k^{2}+103) }{(k-7)(k-10)(k-13)**(k-97)} [/tex]

Var P,k:real;
    i:integer;
Begin
P:=1;
Write('k = ');ReadLn(k);
For i:= 1 to 31 do
    P:=P*(k-i*3-4);
P:=1/P;
k:=k*k;
For i:= 1 to 51 do
    P:=P*(k+i*2+1);
WriteLn('P = ',P);
End.