выч методы не разобраны! / Лаба№3 / Мишины / GAUSS2

{$N+,E+}
type F=Function(x:extended):extended;
var N:integer;A,B,S:extended;
Function Fun(x:extended):extended;
Begin Fun:=4/(1+x*x)End;
Procedure GS(N:integer;A,B:extended;var S:extended);
var i:integer;H,C,D,X:extended;
Begin H:=(B-A)/N;
      C:=H/sqrt(3);
      D:=H-C;
      X:=A+D/2;S:=0;
      for i:=1to N do begin S:=S+Fun(X);
                            X:=X+C;
                            S:=S+Fun(X);
                            X:=X+D
                       end;
      S:=S*H/2
End;
BEGIN repeat write('—Ёб«® а §ЎЁҐ­Ё© N,Їаe¤e«л Ё­вҐЈаЁа®ў ­Ёп A,B ?');
             readln(N,A,B);
             GS(N,A,B,S);
             writeln('€­вҐЈа « Ї® ¬eвo¤y ѓ гcca c ¤ўy¬п y§«a¬Ё =',S)
      until false
END.