uses Graph,crt;

var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
  x,y:word;

  procedure Solnce(x,y:word; col:byte);
  begin
  setcolor(col);
  setfillstyle(solidfill, col);
  circle(x, y, 45);
  floodfill(x, y, col);

  end;

begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'c:\!\bp\bgi');
  ErrCode := GraphResult;
  if ErrCode <> grOk then
    begin
      Writeln('Graphics error:', GraphErrorMsg(ErrCode));
      readln; exit
    end;

  { derevo }
  setcolor(green);
  setfillstyle(solidfill, green);
  moveto(80, 240);
  lineto(95, 300);
  lineto(65, 300);
  lineto(80, 240);
  floodfill(80, 250, green);

  moveto(80, 300);
  lineto(110, 380);
  lineto(50, 380);
  lineto(80, 300);
  floodfill(80, 310, green);

  moveto(80, 380);
  lineto(120, 460);
  lineto(40, 460);
  lineto(80, 380);
  floodfill(80, 400, green);

  setcolor(brown);
  setfillstyle(solidfill, brown);
  bar(75, 460, 85, 478);

  { domik }
  setcolor(white);
  rectangle(520, 380, 638, 478);
  moveto(520, 380);
  lineto(580, 300);
  lineto(638, 380);

  { truba }
  moveto(535, 360);
  lineto(535, 320);
  lineto(550, 320);
  lineto(550, 340);

  { solnce }
  x:=520;
  y:=80;
  repeat
  Solnce(x,y,yellow);
  delay(250);
  Solnce(x,y,black);
  x:=x-10;
  y:=y+10;
  until keypressed;
  readln;

  closegraph;
end.