program biatlons_n;
   Uses GRAPH,CRT;
var
d,m:smallint;
c:char;
a,b,e:integer;
point:array [1..3] of real;
 Procedure tree;
 var
 z,e,d:integer;
 begin
 randomize;
 setFillStyle(1,16);
 setcolor(black) ;

 rectangle(700,700,710,720); //legs

 line(695,705,705,685);  //body
 line(715,705,705,685);
 line(695,705,715,705);

   line(695,695,705,675);     //head
 line(715,695,705,675);
 line(695,695,715,695);
  end;


 procedure rep;
 var
 m:integer;
 begin
   SetFillStyle(1,16);
     setcolor(black);

      for m:=1 to 125 do
     begin
         setcolor(white);
         circle(450+m,175,20);
         setcolor(black);
         delay(1);
         circle(450+m,175,20);
     end;

      for m:=1 to 195 do
        begin
         setcolor(white);
         circle(575,175+m,20);
         setcolor(black);
         delay(1);
         circle(575,175+m,20);
     end;

        for m:=1 to 250 do
        begin
         setcolor(white);
         circle(575-m,375,20);
         setcolor(black);
         delay(1);
        circle(575-m,375,20);
     end;

       for m:=1 to 180 do
        begin
         setcolor(white);
         circle(325,370-m,20);
         setcolor(black);
         delay(1);
         circle(325,370-m,20);
     end;

       for m:=1 to 125 do
        begin
         setcolor(white);
         circle(325+m,175,20);
         setcolor(black);
         delay(1);
         circle(325+m,175,20);
     end;
     circle(450,175,20);
 end;

begin

 Initgraph(d,m,'');
 SetFillStyle(1,15);

 line(200,200,300,200);     //main
 line(300,200,300,400);
 line(300,400,600,400);
 line(600,400,600,200);
 line(600,200,800,200);
 line(800,200,800,600);
 line(800,600,200,600);
 line(200,600,200,200);

 line(350,200,350,350);     //cube
 line(350,350,550,350);
 line(550,350,550,200);
 line(550,200,350,200);

 line(150,150,150,650);     //external
 line(150,650,850,650);
 line(850,650,850,150);
 line(850,150,150,150);

 line(350,150,350,125);      //extra
 line(350,125,550,125);
 line(550,125,550,150);

 circle(400,50,20);          //target
 circle(450,50,20);
 circle(500,50,20);
 fillellipse(400,50,5,5);
 fillellipse(450,50,5,5);
 fillellipse(500,50,5,5);



     line(300,750,400,750);   //house
     line(400,750,400,850);
     line(400,850,300,850);
     line(300,850,300,750);
     line(300,750,350,700);
     line(350,700,400,750);

     line(340,790,360,790);    //window
     line(340,830,360,830);
     line(340,790,340,830);
     line(360,790,360,830);
     line(350,790,350,830);


     tree;
     SetFillStyle(1,16);        //anime
     setcolor(black);

     for b:=1 to 475 do
     begin
         setcolor(white);
         circle(650-b,625,20);
         setcolor(black);
         delay(1);
         circle(650-b, 625, 20);
     end;

        for b:=1 to 450 do
     begin
        setcolor(white);
         circle(175,625-b,20);
         setcolor(black);
         delay(1);
         circle(175,625-b,20);
     end;

         for b:=1 to 275 do
     begin
         setcolor(white);
         circle(175+b,175,20);
         setcolor(black);
         delay(1);
         circle(175+b,175,20);
     end;
      circle(450,175,20);

         for a:=1 to 3 do
   Begin
       writeln('Ievadi kordinatus X un Y');
       readln(e);
       readln(b);
        setcolor(red);
       circle(e,b,10);

       end;



        for b:=1 to 375 do
     begin
         setcolor(white);
         circle(450+b,175,20);
         setcolor(black);
         delay(1);
         circle(450+b,175,20);

     end;

          for b:=1 to 460 do
     begin
         setcolor(white);
         circle(825,175+b,20);
         setcolor(black);
         delay(1);
         circle(825,175+b,20);

     end;

            for b:=1 to 200 do
     begin
        setcolor(white);
         circle(825-b,625,20);
         setcolor(black);
         delay(1);
         circle(825-b,625,20);
     end;
      readln;
 closegraph;
end.