Решение курсовой работы, срочно!

uses graphABC;
procedure Piramida(x,y,a,h,c:integer);
var  x1,y1,x2,y2,x3,y3,x4,y4,x5,y5:integer;
begin
x1:=x; y1:=y;
x2:=x+a div 2;y2:=y-a div 2;
x3:=x+3*a div 2;y3:=y-a div 2;
x4:=x+a; y4:=y;
x5:=x+(x3-x1)div 2;y5:=y-(y2-y1) div 2-h;
SetPenStyle(psSolid);
SetPenWidth(2);
line(x1,y1,x4,y4);
line(x3,y3,x4,y4);
line(x1,y1,x5,y5);
line(x3,y3,x5,y5);
line(x4,y4,x5,y5);
SetPenStyle(psDot );
SetPenWidth(1);
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x2,y2,x5,y5);
end;
var i:byte;
    x,y,a,h,c:integer;
begin
randomize;
SetWindowWidth(700);
SetWindowHeight(400);
a:=50;
h:=200;
x:=20;
y:=WindowHeight-20;
for i:=1 to 6 do
 begin
  c:=RGB(random(255),random(255),random(255));
  Piramida(x,y,a,h,c);
  h:=h-5;
  x:=x+2*a;
 end;
end.

function F(x:real):real;
begin
F:=pi*x*x-exp(1)*x*x+(2*exp(1)+1)*x+pi*pi;
end;
 
var a,b,c,x,e:real;
begin
writeln('Решение уравнения pi*x^2-e)*x^2+(2e+1)x+pi^2=0');
writeln('на интервале [-1,-3] с погрешностью 0.0001');
a:=-1;
b:=-3;
e:=0.0001;
repeat
   c:=(a+b)/2;
   if F(a)*F(c)<=0 then b:=c
   else a:=c;
until abs(b-a)<e;
x:=(a+b)/2;
writeln('x=',x:0:5);
end.