Пример программы:
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