Не могу понять почему не работает

Program integ;
const a=0; b=1; E=0.0001;
var R,S,Si:real;
x,h:real;
    n,i:integer;
    function F(x:real):real;
 
 
    begin
    F:=sin(x+x*x*x);
    end;
    Function Sim(n:integer):real;
    begin
    h:=abs(b-a)/n;
    S:=0;x:=a;
    for i:=1 to n do
    begin
    Si:=(f(x)+4*f(x+h/2)+f(x+h))*h/6;
    S:=S+Si;
    x:=x+h;
    end;
    Sim:=S;
    end;
    Begin
    n:=1;
    R:=abs(Sim(n)-Sim(n*2))/15;
    while(R>E)   do n:=2*n;
    writeln('S=',Sim(n):7:10);
    readln;
    end.

На какой строчке программа вылетает?

[telepathy on]
Здесь проблема? Правильно делает, что вылетает: у тебя в цикле не изменяются значения R и E, условие всегда истинно. А вот n очень быстро переполняется, как только оно перестанет помещаться в отведенные 2 байта (ну, или какой там у тебя размер Integer) - тут же произойдет переполнение...
[/telepathy off]

Везде поменяла на extended, кроме i, и всё заработало! Спасибо за помощь)

После одной лишь замены типа цикл перестал уходить в бесконечность?!
Чудеса...

Внимательно вглядись вот в эту строчку:
while(R>E) do n:=2*n;
- и я уверен, через некоторое время поймешь )).

Вот тебе исправленный (и правильно отформатированный) твой же код:

Program integ;
const
  a= 0;
  b= 1;
  E= 0.0001;
var
  R,S,Si: real;
  x,h: real;
  n,i: integer;

function F(x: real): real;
begin
  F:= sin(x+x*x*x);
end;

Function Sim(n: integer): real;
begin
  h:= abs(b-a)/n;
  S:= 0;
  x:= a;
  for i:=1 to n do begin
    Si:= (f(x)+4*f(x+h/2)+f(x+h))*h/6;
    S:= S+Si;
    x:= x+h;
  end;
  Sim:= S;
end;

Begin
  n:= 1;
  repeat
    n:= n*2;
    R:= abs(Sim(n div 2)-Sim(n))/15;
  until R<=E;
  writeln('S=',Sim(n):7:10);
  readln
end.

Добавлено через 3 мин.
Ой, я, кажется, не обновил браузер.. Мужики, извините, стирать уже не буду.. ))