записать программу для вычисления результата по формуле

[Марина357]

Program lab12;
Var 
x,p,an,b,y: real;
k,n: integer;
begin 
Writeln ('Введите x,n');
readln(x,n);
p:= 1;
b:=((exp(x)*ln(x)-sin(x)));
for k:= 1 to n do
an:=((sqrt(sqr(x)*exp(k/2)*ln(x)*n)/(k+4/3)));
p:=p*an;
y:=b+p;
writeln ('y=',y:8:5);
readln;
k:=k+1;
end.

x=0.5 n=20
Помогите найти ошибку в программе, пожалуйста.
четвертая формула на фото

[type_Oleg]

Это все оттого, что не пишете все красиво.
Вот фрагмент вашего кода

b:=((exp(x)*ln(x)-sin(x)));
for k:= 1 to n do
an:=((sqrt(sqr(x)*exp(k/2)*ln(x)*n)/(k+4/3)));
p:=p*an;
y:=b+p;

А если бы записали красиво, сразу бы поняли, где ошибка

  b:=((exp(x)*ln(x)-sin(x)));
  for k:= 1 to n do
    an:=((sqrt(sqr(x)*exp(k/2)*ln(x)*n)/(k+4/3)));
  p:=p*an;
  y:=b+p;

- вот так сразу видно, что у вас в цикле выполняется всего 1 оператор. А надо 2.
Надо вот так

  b:=((exp(x)*ln(x)-sin(x)));
  for k:= 1 to n do 
   begin
     an:=((sqrt(sqr(x)*exp(k/2)*ln(x)*n)/(k+4/3)));
     p:=p*an;
   end;
  y:=b+p;

PS Кстати, что там за фигня под корнем ? Какой смысл в корне из x^2 ? И главное, что там за логарифм непонятный ? От этого логарифма у вас минус под корнем не появится ?

[Марина357]

Большое спасибо!
Вы мне очень помогли