{* Рисование домика *}

Unit GR_1;
Interface
Implementation
Begin
 writeln('Рисование домика');
End.

Program gr_1;

Uses gr_1.pas; {* Эту строку можно удалить *}
Uses crt, graph; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  dr : integer;
  md : integer;
Begin
  dr := detect;
  initgraph (dr, md, 'c:bpbgi');
  setbkcolor(1);
  rectangle(200, 200, 500, 450);
  line(350, 50, 500, 200);
  line(350, 50, 200, 200);
  setcolor(1);
  setlinestyle(0, 0, 3);
  setfillstyle(1, 8);
  rectangle(480, 320, 420, 445);
  floodfill(450, 382, 1);
  setcolor(1);
  setlinestyle(0, 0, 3);
  setfillstyle(1, 14);
  rectangle(280, 280, 350, 350);
  floodfill(315, 315, 1);
  setcolor(1);
  setlinestyle(0, 0, 4);
  setfillstyle(1, 4);
  setcolor(6);
  circle(350, 150, 30);
  floodfill(350, 150, 6);
  readkey; {* Ждем нажатия пользователя *}
  closegraph;
End.