Паскаль,Творческая работа №1.

   program gr;
   USES Graph;
   Var d,a,b,Rx,Ry,x,y,g:integer;
    Begin
   D:=DETECT;
  InitGraph(d,g, 'd:\BP\BGI');
  setcolor(2);
  SetFillStyle(3,6);
  Bar(10,200,300,450);
 rectangle(10,200,300,450);
 line(10,200,145,50);
 line(145,50,300,200);
 circle(145, 150,20);
 line(20,190,20,100);
 line(20,100,50,100);
 line(50,100,50,160);
 line(40, 100, 40, 110);
 line(20, 110, 50, 110);
 line(30, 110, 30, 120);
 line(20, 120, 50, 120);
 line(25, 120, 25, 130);
 line(45, 120, 45, 130);
 line(20, 130,50, 130);
 line(30,130,30,140);
 line(20,140,50,140);
 line(40, 140, 40, 150);
 line(20, 150, 50, 150);
 line(30, 150, 30, 160);
 line(20, 160,50, 160);
 line(25, 160, 25, 170);
 line(20, 170,35,170);
 rectangle(70, 290, 230,380);
 line(150,290,150,380);
 line(70,335,230,335);
 Sector(70,290,270,360,50,40);
 Ellipse(50,370,350,70,50,40);
 Ellipse(235,295,175,267,50,40);
 Ellipse(230, 375, 102,190,40,40);
 line(240,450,400,450);
 line(400,450,400,420);
 line(400,420,350,420);
 line(350,420,350,400);
 line(350,400,300,400);
 rectangle(300,290,340,400);
 circle(330,340,4);
 readln;
   CloseGraph;
   End.