помогите с вложенными циклами

[Триш]

нужно найти значение
Безымянный.JPG

Program Lab5;
 Var
  x0, xh,xn, x, z, P, S: real;
  i: integer;
 Begin
   x0:=0.5;
   xh:=0.5;
   xn:=4;
   P:=1;
   S:=0;
   x:=x0;
  repeat
    if (x<=2) then
     for i:=1 to 8 do
      begin
       z:=P*Exp(P*Ln(x/P));
       P:=P+1;
      end
    else
     for i:=1 to 5 do
      begin
       z:=S+1+x*S;
       S:=S+1;
      end;
   x:=x+xh;
  until x > xn;
 writeln('z=',z:6:2);
End.

подскажите пожалуйста,в чем ошибки??

[type_Oleg]

P:=P+1; // ???

Вы вообще знаете, что означает буква П ?
Которая с 8 вверху и n=1 внизу..

[Триш]

произведение
я пыталась сделать по методичке,чисто по примерам

[newerow1989]

s:=1;
if (x<=2) then
     for i:=1 to 8 do
      begin
       z:=Exp(i*Ln(x/i));
       s:=s*z;
      end
    else
     for i:=1 to 5 do
      begin
       z:=1+x*i;
       S:=S+z;
      end;

[type_Oleg]

... и опять складываете.
Там же произведение, где степень дроби.

[newerow1989]

Исправил...