File:Ураган.png

uses GraphABC;
const
  N = 10;
  K1 = 0.67;
  K2 = 0.18;
  IncAngle = 10;

procedure Draw(x, y, r, ang: real);
begin
  if r > 2 then
  begin
    Draw(x, y, r * K1, ang + IncAngle);
    
    var ang1 := 360 / N;
    for var i := 0 to N - 1 do
    begin
      var angle := DegToRad(ang1 * i + ang);
      Draw(x + r * Cos(angle), y + r * Sin(angle), r * K2, ang + IncAngle);
    end;
  end
  else
    DrawCircle(Round(x), Round(y), Round(r));
end;

begin
  SetWindowIsFixedSize(true);
  LockDrawing();
  
  while true do
    for var i := 0 to 359 do
    begin
      ClearWindow();
      Draw(Window.Width / 2, Window.Height / 2, 190, i);
      Redraw();
    end;
end.