unit integral;
interface
uses crt;
var
n,i:integer;
a,b,shad,sum,itog:real;
implementation

function f(x:real):real;
begin
f:=x*x*x*x+2*x*x+4{¬Ґв®¤ Їаאַ㣮«м­ЁЄ }
end;

begin
clrscr;
textbackground(2);
textcolor(blue);
writeln('***************************');
writeln('*                         *');
writeln('*Њ е®ў ‚пзҐб« ў ЊЁе Ё«®ўЁз*');
writeln('*                         *');
writeln('ННННННННННННННННННННННННННН');


write('­начало интегрирования a= ');readln(a);
write('­конец интегрирования b= ');readln(B);
write('количество разбиения интервала n= ');readln(n);

shad:=(b-a)/n;
sum:=0;
for i:=1 to n-1 do
sum :=sum + f(shad*i+a);
sum :=sum +(f(a) +f(B))/2;

itog:=(b-a)/n * sum;
writeln ('Ё­вҐЈа « = ', itog:10:1);
readln;
end.