В прямой треугольной призме провести сечение,проходящее через диагональ нижнего основания и одну из вершин верхнего основания. - Pascal ABC

uses graphABC,PointRect;
var x,y:integer;
    p1,p2,p3,p4:array[1..5] of point;
begin
x:=windowwidth div 2;
y:=3*windowheight div 4;
setbrushstyle(bsClear);
//перед
p1[1].x:=x-100; p1[1].y:=y;
p1[2].x:=x-100; p1[2].y:=y-200;
p1[3].x:=x+100; p1[3].y:=y-200;
p1[4].x:=x+100; p1[4].y:=y;
p1[5].x:=p1[1].x;p1[5].y:=p1[1].y;
polygon(p1,5);
//лево
p2[1].x:=p1[1].x; p2[1].y:=p1[1].y;
p2[2].x:=x-150; p2[2].y:=y-50;
p2[3].x:=x-150; p2[3].y:=y-250;
p2[4].x:=p1[2].x; p2[4].y:=p1[2].y;
p2[5].x:=p2[1].x;p2[5].y:=p2[1].y;
polygon(p2,5);
//право
p3[1].x:=p1[4].x; p3[1].y:=p1[4].y;
p3[2].x:=p1[3].x; p3[2].y:=p1[3].y;
p3[3].x:=x+150; p3[3].y:=y-250;
p3[4].x:=x+150; p3[4].y:=y-50;
p3[5].x:=p3[1].x;p3[5].y:=p3[1].y;
polygon(p3,5);
line(p2[3].x,p2[3].y,p3[3].x,p3[3].y);
//сечениие
setpencolor(clBlue);
setbrushcolor(clBlue);
setbrushstyle(bsFDiagonal);
p4[1].x:=p1[4].x; p4[1].y:=p1[4].y;
p4[2].x:=p3[3].x; p4[2].y:=p3[3].y;
p4[3].x:=p2[2].x; p4[3].y:=p2[2].y;
p4[4].x:=p4[1].x;p4[4].y:=p4[1].y;
polygon(p4,4);
setpencolor(clBlack);
setpenstyle(psDash);
line(p2[2].x,p2[2].y,p3[4].x,p3[4].y);
end.