procedure Snezhinka_v_zh (x, y: word; r, c: byte);
var alpha: real;
i: byte;
xd, yd: integer;
begin
if c < 1 then exit;
for i := 1 to n do
begin
alpha := 2 * Pi * i / n;
xd := round(x + r * cos(alpha));
yd := round(y + r * sin(alpha));
moveto(x, y);
lineto(xd, yd);
Snezhinka_v_zh(xd, yd, r div 3, c - 1);
end;
end;

begin
initgraph(gd, gm, 'h:\tp\bgi');
setcolor(11);
snezhinka_v_zh(320, 240, k, g);
readkey;
closegraph;
end.

Источник: