program Z2;
uses crt;
var
   f, x, a, b, h, sr, max: real;  {объявление переменных}
   n, i: integer;
begin
   clrscr;   {очистка экрана}
   a := 0.2;
   b := 0.8;
   n := 6;
   h := (b-a)/n;
   for i := 0 to n do begin
     x := a + i*h;
     f := x*x*x*exp(x-1)/(x*x*x-abs(x)) -ln(sqrt(x)-x)/ln(2);

     if ((max < f) or (i = 0)) then max := f;
     sr := sr + f;
     writeln('x=', x:5:2, ' F = ', f:5:2);    {выводим его на экран}
   end;
   sr := sr / (n+1);
   writeln('Srednee = ', sr:5:2);
   writeln('max = ', max:5:2);

   readkey;    {ожидание нажатия клавиши}
end.    {конец}

{ Результат выполнения программы:
x= 0.20 F =  2.00
x= 0.30 F =  1.96
x= 0.40 F =  2.00
x= 0.50 F =  2.07
x= 0.60 F =  2.14
x= 0.70 F =  2.16
x= 0.80 F =  1.95
Srednee =  2.04
max =  2.16
}