дз 2 часть 4444

program ex3;

  procedure INTG1(n: real; key: integer);


     function f(x: real; key:integer): real; begin

      if key = 1 then f := x + cos(x);
      if key = 2 then f := (sin(x + 1) / cos(x + 1)) / (x + 1);
     end;
var a, b, s, delta: real;
begin
  s := 0;
  if key = 1 then begin
    a := -1; b := 4;
  end;
  if key = 2 then begin
    a := -1.5; b := 0;
  end;
  delta := (b - a) / n;
  s:=(f(a,key)+f(b,key))/2;
  while a<b do begin
    a := a + delta;
    s := s + f(a,key);
  end;
  s := s * delta;
  writeln('S = ', abs(s));
  end;
  var n,k:integer;
  begin
  readln(n,k);
  INTG1(n,k);
End.