Закрученные квадраты

uses
  GraphABC; // графическая библиотека
begin
  SetCoordinateOrigin(Window.Width div 2, Window.Height div 2); // в центр окна 
 
  LockDrawing; // блокируем рисование на графическом окне
  var A := 0.0;
  var B := 0.0;
  var C := 0.0;
  var D := 0.0;
  var E := 0.0;
  var F := 0.0;
  var G := 0.0;
  var H := 0.0;
  var I := 0.0;
  var J := 0.0;
  var K := 0.0;
  var L := 0.0;
  var M := 0.0;
 
 
  while true do 
    begin
    ClearWindow(clGray);// фон окна
 
 
      setpencolor(clHoneydew); // кисть
      setbrushcolor(clHoneydew); // заливка
      A += 0.19; // угол вращения
      SetCoordinateAngle(A);  // поворот
      rectangle(-120, -120, +120, +120); // рисуем квадрат
 
      setpencolor(clSkyBlue);
      setbrushcolor(clSkyBlue);
      B += -0.27;
      SetCoordinateAngle(B);
      rectangle(-110, -110, +110, +110);
 
      setpencolor(clHoneydew);
      setbrushcolor(clHoneydew);
      C += 0.35;
      SetCoordinateAngle(C);
      rectangle(-100, -100, +100, +100);
 
      setpencolor(clSkyBlue);
      setbrushcolor(clSkyBlue);
       D += -0.43;
      SetCoordinateAngle(D);
      rectangle(-90, -90, +90, +90);
 
      setpencolor(clHoneydew);
      setbrushcolor(clHoneydew);
       E += 0.51;
      SetCoordinateAngle(E);
      rectangle(-80, -80, +80, +80);
 
      setpencolor(clSkyBlue);
      setbrushcolor(clSkyBlue);
      F += -0.59;
      SetCoordinateAngle(F);
      rectangle(-70, -70, +70, +70);
 
      setpencolor(clHoneydew);
      setbrushcolor(clHoneydew);
      G += 0.67;
      SetCoordinateAngle(G);
      rectangle(-60, -60, +60, +60);
 
      setpencolor(clSkyBlue);
      setbrushcolor(clSkyBlue);
      H += -0.75;
      SetCoordinateAngle(H);
      rectangle(-50, -50, +50, +50);
 
      setpencolor(clHoneydew);
      setbrushcolor(clHoneydew);
      I += 0.83;
      SetCoordinateAngle(I);
      rectangle(-40, -40, +40, +40);
 
      setpencolor(clSkyBlue);
      setbrushcolor(clSkyBlue);
      J += -0.91;
      SetCoordinateAngle(J);
      rectangle(-30, -30, +30, +30);
 
      setpencolor(clHoneydew);
      setbrushcolor(clHoneydew);
       K += 0.99;
      SetCoordinateAngle(K);
      rectangle(-20, -20, +20, +20);
 
      setpencolor(clSkyBlue);
      setbrushcolor(clSkyBlue);
       L += -1.07;
      SetCoordinateAngle(L);
      rectangle(-10, -10, +10, +10);
 
      setpencolor(clHoneydew);
      setbrushcolor(clHoneydew);
       M += 1.15;
      SetCoordinateAngle(M);
      rectangle(-5, -5, +5, +5);
 
 
      Redraw; // перерисовка
      Sleep(1); //задержка
 
    end;
 
end.