В правильной пирамиде провести сечение, параллельное основанию и проходящее через середину бокового ребра

uses graph;
var gd,gm,a,h,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5:integer;
    p:array[1..5] of Pointtype;
begin
initgraph(gd,gm,'');
{сторона, высота}
a:=300;h:=300;
{основание}
{задняя левая точка}
x1:=200;y1:=250;
{остальные точки основания}
x2:=x1+a;
y2:=y1;{задняя правая}
x3:=x1-round(a*0.71*0.71)+a;
y3:=y1+round(a*0.71*0.71);{передняя правая}
x4:=x1-round(a*0.71*0.71);
y4:=y3;{передняя левая}
{вершина}
x5:=x4+round(a/2*(1+0.71*0.71));
y5:=y1+round((y3-y1)/2)-h;
{сечение}
p[1].x:=(x1+x5)div 2;
p[1].y:=(y1+y5)div 2;
p[2].x:=(x2+x5)div 2;
p[2].y:=(y2+y5)div 2;
p[3].x:=(x3+x5)div 2;
p[3].y:=(y3+y5)div 2;
p[4].x:=(x4+x5)div 2;
p[4].y:=(y4+y5)div 2;
p[5]:=p[1];
setcolor(12);
setlinestyle(1,0,1);
setfillstyle(3,12);
fillpoly(5,p);{строим сечение пунктиром со штриховкой}
setlinestyle(0,0,1);
line(p[2].x,p[2].y,p[3].x,p[3].y);{обводим видимые стороны сплошной}
line(p[4].x,p[4].y,p[3].x,p[3].y);
setcolor(10);{рисуем пирамиду}
line(x3,y3,x4,y4);{видимые стороны сплошной}
line(x3,y3,x2,y2);
line(x2,y2,x5,y5);
line(x3,y3,x5,y5);
line(x4,y4,x5,y5);
setlinestyle(1,0,1);{невидимые пунктиром}
line(x1,y1,x2,y2);
line(x1,y1,x4,y4);
line(x1,y1,x5,y5);
readln
end.