Ошибка в задаче

[mrX91]

теперь тут матерится, я уж прям незнаю что делать
writeln('res = ', i1:5:10);

[ACE Valery]

Я не понимаю, почему из вас нужно все клещами вытягивать?
Это, как минимум, неуважение к участникам форума.
Если компилятор выводит ошибку, ПИШИТЕ ТЕКСТ ОШИБКИ!
Никто телепатить над вашей задачей не будет.

[BDA]

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  a = -2;
  b = 8;
  e = 0.0001;

function func(x: real): real;
begin
  func := 2 * sin(x + 1) - (0.5 * x * x) + 1;
end;

function integral(n0: integer): real;
var
  dx: real;
  x: real;
begin
  dx := (b - a) / n0;
  x := a;
  result := 0;
  while (x <= (b - dx)) do
  begin
    result := result + (dx / 2) * (func(x) + func(x + dx));
    x := x + dx;
  end;
end;

var
  n0, n1: integer;
  i0, i1: real;
  err: real;

begin 
  n0 := 5;
  n1 := n0 * 2;
  err := 1;
  i1 := 0;
  while (err > e) do
  begin
    i0 := integral(n0);
    i1 := integral(n1);
    err := abs(i1 - i0) / 3;
    n0 := n1;
    n1 := n0 * 2;
  end; 
  writeln('Integral = ', i1:5:10);
  Readln;
end.

Все работает (в дельфи 7).
Не путайте Warning с Error.