procedure CHINT(A, B:real;C:array of real;var CINT1:array of real;N:integer);
var
SUM,FAC,CON:real; J:integer;
begin
CON:=0.25 * (B - A);
Sum:=0;
FAC:=1;
For J:=2 To N -
program delphifk;
uses
Forms,
main in 'main.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
// icdev:longint;
// st:smallint;
// icdev:=OpenComm(0);
// if icdev
