В правильной четырехугольной пирамиде провести сечение - Pascal ABC

Формулировка задачи:

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

Решение задачи: «В правильной четырехугольной пирамиде провести сечение»

textual
                            Листинг программы 
                        

                            uses graphABC;
type Point=record
           x,y:integer;
           end;
var a,h,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6:integer;
    p1,p2,p3 :array[1..4] of Point;
begin
//Г±ГІГ®Г°Г®Г*Г*, ГўГ»Г±Г®ГІГ*
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);
//ГўГҐГ°ГёГЁГ*Г*
x6:=x5;y6:=y5-h;
//Г°ГЁГ±Г®ГўГ*Г*ГЁГҐ
//Г±ГҐГ·ГҐГ*ГЁГҐ
p3[1].x:=x1;p3[1].y:=y1;
p3[2].x:=x6;p3[2].y:=y6;
p3[3].x:=x3;p3[3].y:=y3;
p3[4].x:=x1;p3[4].y:=y1;
setpencolor(clRed);
setbrushstyle(bsHorizontal);
polygon(p3,4);
floodfill(x1+10,y1,clRed);
//ГЇГҐГ°ГҐГ¤
p1[1].x:=x4;p1[1].y:=y4;
p1[2].x:=x6;p1[2].y:=y6;
p1[3].x:=x3;p1[3].y:=y3;
p1[4].x:=x4;p1[4].y:=y4;
setbrushstyle(bsClear);
setpencolor(clBlue);
polygon(p1,4);
//ГЇГ°Г*ГўГ®
p2[1].x:=x3;p2[1].y:=y3;
p2[2].x:=x6;p2[2].y:=y6;
p2[3].x:=x2;p2[3].y:=y2;
p2[4].x:=x3;p2[4].y:=y3;
polygon(p2,4);
//ГўГ*ГіГІГ°ГЁ
setpenstyle(psDash);
line(x2,y2,x4,y4);
line(x1,y1,x4,y4);
line(x1,y1,x2,y2);
line(x1,y1,x6,y6);
end.
                        