выч методы не разобраны! / Лаба№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.