Выбрать алгоритм, составить блок-схему и программу для вычисления в точках

[grendast]

Выбрать алгоритм, составить блок-схему и программу для вычисления в точках xi = a + i×h, i = 0,1,2…,n, h = (b – a)/n промежутка [a,b] наибольшего и среднего значений функции y = f(x), указанной в варианте задания. Для выполнения задания воспользоваться оператором цикла FOR

[newerow1989]

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

function f(x:real):real;
begin
   Result:=(Step2(ln((x-1)*(x-1)/x),3)+cos(2*x)*cos(2*x))/Step2(x*x-5*x+6,1/6)*
      sin(Step2(3,x*x-1)/2);
end;

const n=5;
      a=3.5;
      b=4;
var h,x,y,sr,min,max:real;
    i:integer;
begin
   sr:=0;
   min:=f(a);
   max:=f(a);
   h:=(b-a)/n;
   For i:=0 to n do
   begin
      x:=a+i*h;
      y:=f(x);
      sr:=sr+y;
      If min>y then
         min:=y;
      If max<y then
         max:=y;
      Writeln(x:5:5,'   ',y:5:5);
   end;
   sr:=sr/(n+1);
   Writeln;
   Writeln('sr = ',sr:5:5);
   Writeln('min = ',min:5:5);
   Writeln('max = ',max:5:5);
   Readln;
end.

[grendast]

Спасибо!