помогите!! Паскаль! построить пирамиду из прямоугольников с помощью цикла for

Оно то работает, если разделить на строки, но не слишком ли много магических чисел?

uses graphabc;const n = 12;var i, h, w: integer;begin Window.Init(0, 0, Random(100,800), Random(100,800), clBlanchedAlmond); h := round(Window.Height / (n + 2)); w := round(Window.Width / (2 * n - 1 + 2)); for i := 1 to n do begin SetPenWidth(h div 10); Pen.Color := clRandom; DrawRectangle(w * (i - 1) + w, Window.Height - h * i, Window.Width - w * i, Window.Height - h * (i + 1)); endend.