program laba14;
 uses graph, crt;
 var d,m: integer;
 procedure risun;
 begin
circle(120, getmaxy-120,15);
 setcolor(black);
 delay(500);
  circle(120, getmaxy-120,15);
 setcolor(5);
  circle(200,getmaxy-170,15);
 setcolor(black);
 delay(500);
  circle(200,getmaxy-170,15);
 setcolor(6);
  circle(280, getmaxy-210,15);
 setcolor(black);
 delay(500);
  circle(280, getmaxy-210,15);
 setcolor(1);
 circle(360,getmaxy-260,15);
 setcolor(black);
 delay(500);
  circle(360, getmaxy-260,15);
 setcolor(0);
 setcolor(yellow);
 line(500,getmaxy-375,500,getmaxy-395);
 line(500,getmaxy-345,500,getmaxy-330);
 line(485,getmaxy-360,470,getmaxy-360);
 line(515,getmaxy-360,530,getmaxy-360);
 setcolor(black);
 delay(700);
 line(500,getmaxy-375,500,getmaxy-395);
 line(500,getmaxy-345,500,getmaxy-330);
 line(485,getmaxy-360,470,getmaxy-360);
 line(515,getmaxy-360,530,getmaxy-360);
 delay(700);
 setcolor(green);
 line(500,getmaxy-375,500,getmaxy-395);
 line(500,getmaxy-345,500,getmaxy-330);
 line(485,getmaxy-360,470,getmaxy-360);
 line(515,getmaxy-360,530,getmaxy-360);
 setcolor(black);
 delay(700);
 line(500,getmaxy-375,500,getmaxy-395);
 line(500,getmaxy-345,500,getmaxy-330);
 line(485,getmaxy-360,470,getmaxy-360);
 line(515,getmaxy-360,530,getmaxy-360);
 end;
        begin
        d:=detect;
        initgraph(d,m,'');
        moveto(15, getmaxy);
        setcolor(green);
        rectangle(15,getmaxy,80,getmaxy-30);
        moveto(40,getmaxy-30);
        lineto(70,getmaxy-65);
        moveto(15,getmaxy-30);
        lineto(45,getmaxy-65);
        circle(60,getmaxy-75,15);
        setcolor(5);
        circle(500,getmaxy-360,30);
        setcolor(red);
        pieslice(500,getmaxy-360,0,360,10);
        circle(500,getmaxy-360,60);
        setcolor(yellow);
        readln;
        risun;
        readkey;
        end.