Паскаль не решать прост подскажите

[Просто человек]

Pascal abc
есть код похожей задачи:

function f(x:real):real;
begin
f:=4.26*pi*exp(-x)-exp(x)
end;
var x,dx,y,p,sr:real;
k:integer;
begin
x:=-1;
dx:=0.1;
p:=1;
k:=0;
sr:=0;
repeat
y:=f(x);
writeln('x=',x:5:1,' y=',y:7:2);
if y<0 then
begin
k:=k+1;
sr:=sr+y;
end
Else p:=p*y;
x:=x+dx
until y<-10;
sr:=sr/k;
writeln('Среднее арифметическое отрицательных=',sr:7:3);
write('Произведение положительных=',p);
end.

Что надо в этом коде изменить(фотография)

[newerow1989]

function step(chislo,stepen:real):real;
begin
   Result:=exp(stepen*ln(chislo));
end;

function f(x:real):real;
begin
   Result:=14.25*step(Abs(8*x*x)+pi/2,1/3)/(ArcTan(x*x)-Exp(Sin(x*x)));
end;

const delta=0.25;
var x,y,s:real;
    i:integer;
begin
   x:=-1;
   i:=0;
   s:=0;
   Repeat
      y:=f(x);
      Writeln(x:2:5,'  ',y:5:5);
      x:=x+delta;
      i:=i+1;
      If y<0 then
         s:=s+y;
   Until y>100;
   s:=s/i;
   Writeln(i,'  ',s:5:5);
   Readln;
end.

Сойдет?

[Просто человек]

Спасибо за помощь