Метод Монте-Карло

[Rudy94]

F := sqrt(exp(x)-1) ;
Помогите закончить программу

Program MonteKarlo;
var k,g,x,p,s,integral: real;
i,a,b,n:integer;
begin
writeln('vvedite a=');
readln(a);
writeln('vvedite b=');
readln(b);
writeln('4islo to4ek n=');
readln(n);
write('vvidite promezhytok integrirovaniya (a: b: ):');
readln(b);
writeln('vvidite koli4estvo sly4ainyh zna4eniy (4islo ispytaniy g=');
write('4islo tochek n=');
k:=b-a;
writeln('k-k');
for i:=0 to n do
begin
g:=random;
x:=a+g*(b-a);

[tsar_]

В первом приближении:

Program MonteKarlo;
var k,g,x,p,s,integral: real;
i,a,b,n:integer;
begin
  writeln('vvedite a=');
  readln(a);
  writeln('vvedite b=');
  readln(b);
  writeln('4islo to4ek n=');
  readln(n);
  write('vvidite promezhytok integrirovaniya (a: b: ):');
  readln(b);
  writeln('vvidite koli4estvo sly4ainyh zna4eniy (4islo ispytaniy g=');
  write('4islo tochek n=');
  k:=b-a;
  writeln('k-k');
  for i:=0 to n do
    begin
    g:=random;
    x:=a+g*(b-a);
    end;
end.