Program Shikhnebieva;
 
uses math;
 
const
  N = 20; 
 
var
  h: real;
  x: array[0..N] of real; 
  s: real; 
  f: array[1..8] of real; 
  i, j: integer; 
 
function int(i: integer): real;
var
  j: integer; 
begin
  h := pi / N; 
  for j := 0 to N do 
    x[j] := j * h;
 
  s := 0; 
  for j := 0 to N - 1 do begin
    s := s + exp((i * (x[j] + h/2)) / (1 + (x[j] + h/2))); 
  end;
 
  int := h * s; 
end;
 
begin
  for i := 1 to 8 do 
  begin
    f[i] := int(i); 
    writeln('Integral for i = ', i, ': ', f[i]:0:10); 
  end;
end.
 

UHJvZ3JhbSBTaGlraG5lYmlldmE7Cgp1c2VzIG1hdGg7Cgpjb25zdAogIE4gPSAyMDsgCgp2YXIKICBoOiByZWFsOwogIHg6IGFycmF5WzAuLk5dIG9mIHJlYWw7IAogIHM6IHJlYWw7IAogIGY6IGFycmF5WzEuLjhdIG9mIHJlYWw7IAogIGksIGo6IGludGVnZXI7IAoKZnVuY3Rpb24gaW50KGk6IGludGVnZXIpOiByZWFsOwp2YXIKICBqOiBpbnRlZ2VyOyAKYmVnaW4KICBoIDo9IHBpIC8gTjsgCiAgZm9yIGogOj0gMCB0byBOIGRvIAogICAgeFtqXSA6PSBqICogaDsKICAgIAogIHMgOj0gMDsgCiAgZm9yIGogOj0gMCB0byBOIC0gMSBkbyBiZWdpbgogICAgcyA6PSBzICsgZXhwKChpICogKHhbal0gKyBoLzIpKSAvICgxICsgKHhbal0gKyBoLzIpKSk7IAogIGVuZDsKICAKICBpbnQgOj0gaCAqIHM7IAplbmQ7CgpiZWdpbgogIGZvciBpIDo9IDEgdG8gOCBkbyAKICBiZWdpbgogICAgZltpXSA6PSBpbnQoaSk7IAogICAgd3JpdGVsbignSW50ZWdyYWwgZm9yIGkgPSAnLCBpLCAnOiAnLCBmW2ldOjA6MTApOyAKICBlbmQ7CmVuZC4K