{* Задача 200 *}

Unit ZADACH200;
Interface
Implementation
Begin
 writeln('В правильной четырехугольной пирамиде провести сечение проходящее через диагональ основания и вершину пирамиды. ');
End.

Program pas13421;

Uses zadach200.pas; {* Эту строку можно удалить *}
Uses crt, graph; {* Подключение модулей *}
Type {* Используемые типы *}
  TPoint = Record              x, y : integer;
  End;
Var {* В работе нам потребуются переменные: *}
  a  : integer;
  h  : integer;
  s  : integer;
  t  : Array[1..3] Of Tpoint;
  gd : integer;
  gm : integer;
  i  : integer;
  k  : char;
  x1 : integer;
  y1 : integer;
  x2 : integer;
  y2 : integer;
  x3 : integer;
  y3 : integer;
  x4 : integer;
  y4 : integer;
  x5 : integer;
  y5 : integer;
  Begin
  clrscr; {* Очистка экрана *}
  InitGraph(gd, gm, 'dtpbgi'); {координаты 5 вершин}
  x1 := 200;
  y1 := 400;
  x2 := 400;
  y2 := 400;
  x3 := 500;
  y3 := 300;
  x4 := 300;
  y4 := 300;
  x5 := 350;
  y5 := 50; {сечение-треугольник}
  t[1].x := x1;
  t[1].y := y1;
  t[2].x := x5;
  t[2].y := y5;
  t[3].x := x3;
  t[3].y := y3;
  setfillstyle(3, 11);
  fillpoly(3, t);
  setlinestyle(1, 0, 1); {грани пирамиды видимые}
  setlinestyle(0, 0, 2);
  line(x1, y1, x2, y2);
  line(x2, y2, x3, y3);
  line(x1, y1, x5, y5);
  line(x2, y2, x5, y5);
  line(x3, y3, x5, y5); {грани пирамиды невидимые}
  setlinestyle(1, 0, 1);
  line(x3, y3, x4, y4);
  line(x4, y4, x1, y1);
  line(x4, y4, x5, y5);
  readln; {* Ждем подтверждения пользователя *}
  closegraph;
  End....