uses Graph;

var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  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);

  { solnce }
  setcolor(yellow);
  setfillstyle(solidfill, yellow);
  circle(520, 80, 45);
  floodfill(520, 80, yellow);

  { 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);

  readln;

  closegraph;
end.