uses GraphABC;

procedure drawStar(); // Процедура рисования звезды
const
  Deg2Rad = 0.0174533; // Константа перевода градусов в радианы (Deg2Rad это стандартное обозначение, потому что читается как DegToRad)

var
  centerX, centerY : integer; // Координаты центра
  size : integer; // Размер звезды (радиус описанной вокруг звезды окружности)
  angle : double; // Угол направления на текущую вершину звезды от центра
  i : integer;    // Счетчик

begin
  angle := -90 * Deg2Rad; // Устанавливаем первый угол в центр слева
  centerX := Window.Width div 2;  // Центр окна по ширине
  centerY := Window.Height div 2; // Центр окна по высоте
  size := min(Window.Width, Window.Height) div 2; // Размер звезды

  moveTo(Round(centerX + size * cos(angle)), Round(centerY + size * sin(angle))); // Устанавливаем первую вершину
  for i := 1 to 7 do
  begin
    angle += (3.0 / 7.0) * (360 * Deg2Rad); // Переходим на три вершины по часовой стрелке
    LineTo(Round(CenterX + size * cos(angle)), Round(centerY + size * sin(angle))); // Рисуем отрезок до текущей вершины
  end;
end;

begin
  SetWindowSize(800, 500); // Устанавливаем размер окна
  drawStar(); // Рисуем звезду
end.