Пример программы:

uses crt,graph;

var a, b: integer;

begin

a:= detect;

initgraph(a, b,'');

{Солнце}

setcolor(14);

setfillstyle(1,14);

fillellipse(500,100,50,50);

{Дом}

setcolor(5);

rectangle(200,250,350,400);

setfillstyle(3,5);

bar(201,251,349,399);

{Крыша дома}

setcolor(1);

line(200,249,350,249);

line(275,165,355,255);

line(275,165,195,255);

{Закрасим крышу дома}

setfillstyle(1,1);

floodfill(275,170,1);

{Ствол дерева}

setfillstyle(1,6);

bar(95,270,105,380);

{Крона}

setcolor(2);

setfillstyle(11,2);

fillellipse(100,200,30,70);

readkey; {Задержка}

closegraph; {Закрытие графической системы}

end.

4