Условие: Нарисовать снежинку

uses graphABC;
var n:integer;

procedure yy(x,y,r,q:integer);
begin
line(x-r,y,x+r,y);
line(x,y-r,x,y+r);
line(x-round(3*r/4),y-round(3*r/4),x+round(3*r/4),y+round(3*r/4));
line(x+round(3*r/4),y-round(3*r/4),x-round(3*r/4),y+round(3*r/4));
end;

procedure vv(n,x,y,r:integer);
var i:integer;
begin
if n>0 then 
  begin
  SetBrushColor(clRandom);
  Circle(x,y,r);
  yy(x,y,r,n);
  for i:=1 to 8 do
    begin
    vv(n-1,round(x+round(4*r/3)*cos(pi/4*i)),round(y+round(4*r/3)*sin(pi/4*i)),round(3*r/7));
    end;
  end;
end;

Begin
window.Caption:='Снежинка рекурсивным методом рисования';
window.Height:=600;
window.Width:=600;
window.IsFixedSize:=true;
FloodFill(0,0,clMidnightBlue);
writeln('Введите глубину снежинки');
readln(n);
window.Clear(clMidnightBlue);
SetPenColor(clMintCream);
vv(n,300,300,150);
End.