Pascal, вычислить значение

[Smart_Tornado]

Здравствуйте! Прошу помочь с написанием кода следующего значения:

[VIK_aka_TOR]

помощь с нуля стоит денег
для бесплатной помощи укажите что у вас не получается и предоставьте наработки.

[AnryKZKZ]

В целом то все там просто. Единственное не понятны коэффициенты:
h - нигде не фигурирует, для чего сий параметр?
массив b - всего 2 значения, а где остальные?
что за оператор П - ??

[Artsiom]

Сообщение от AnryKZKZ

что за оператор П - ??

Произведение...

[newerow1989]

const a=2.5;
      k=6;
      p=3.5;
      b:array[0..4] of integer=(22,26,30,34,38);
      c:array[1..6] of integer=(1,5,8,7,6,2);
var x,y:extended;
    i,bi2,cj:integer;
begin
   bi2:=0;
   i:=1;
   While i<=4 do
   begin
      bi2:=bi2+b[i];
      i:=i+1;
   end;
   cj:=1;
   i:=1;
   While i<=6 do
   begin
      cj:=cj*c[i];
      i:=i+1;
   end;
   x:=bi2+cj;
   y:=Exp(x)+(a+Sin(x))/(k+Cos(p));
   Writeln(y:5:5);
   Readln;
end.