Question

Помогите пожалуйста с программой на Паскале!!

Answer 1

program fantscrin;

 var  p, a, b, c, x:real; n,i:integer;

begin

 write('x = '); readln(x);

 p:=1;

 for n:=1 to 6 do

 begin

   a:= 1;

   for i:=1 to n+3 do

     a:= a * i;

     

   b:= 8 * exp(ln(x)*(2+n));

   

   c:= 1;

   for i:=1 to 2*n-1 do

     c:= c * i;

   p:=p * (a + b) / c;  

 end;

 writeln('P = ', p);

end.