В окнах экрана 90 х 90 точек построить 4 пятиконечные звезды с размерами сторон а1, а2, а3, а4

uses GraphABC;
 
procedure Star(X, Y : integer; R : integer);
var 
  pts : array of Point;
  Angle : integer;
  Dist : integer;
begin
  Angle := 90;
  SetLength(pts, 10);
  for var i : integer := 0 to 9 do
  begin
    if Odd(i) then Dist := R div 3
    else Dist := R;
    
    pts[i].X := X + Trunc(Dist * Cos(DegToRad(Angle)));
    pts[i].Y := Y - Trunc(Dist * Sin(DegToRad(Angle)));
    
    Inc(Angle, 36);
  end;
  DrawPolygon(pts);
end;
 
var P : integer;
begin
  P := 50; // размер стороны
  Star(Window.Width div 2, Window.Height div 2, 
       Trunc(p * Sin(DegToRad(144)) / Sin(DegToRad(18))));
end.

var P : integer;
begin
  P := 50; // размер стороны
  Star(Window.Width div 2, Window.Height div 2, 
       Trunc(p * Sin(DegToRad(144)) / Sin(DegToRad(18))));
  P := 35; // размер стороны
  Star(3 * Window.Width div 4, Window.Height div 4, 
       Trunc(p * Sin(DegToRad(144)) / Sin(DegToRad(18))));
  P := 45; // размер стороны
  Star(Window.Width div 4, Window.Height div 4, 
       Trunc(p * Sin(DegToRad(144)) / Sin(DegToRad(18))));
  P := 15; // размер стороны
  Star(3 * Window.Width div 4, 3 * Window.Height div 4, 
       Trunc(p * Sin(DegToRad(144)) / Sin(DegToRad(18))));
end.