Вот эта программа volvo подойдетдумаю.
Скрин:
Нажмите для просмотра прикрепленного файлаКод
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.
