Семь разноцветных одинаковых равносторонних треугольников

[Aleksos]

Сделать в Pascal семь разноцветных одинаковых равносторонних треугольников, которые соприкасаются вершинами в одной точке. Длина основания треугольника вводится с клавиатуры.

[macomics]

type
  TPoint = packed record
    x, y: Single;
  end;

function Point(aX, aY: Single): TPoint;
begin
  with Result do
    x := aX;
    y := aY;
  end;
end;

procedure Triangle(A, B, C: TPoint; Color: Cardinal);
begin
  SetColor(Color); // Определяем цвет для рисования (имя функции и набор параметров может отличаться для разных режимов)

// Рисуем границы треугольника (имена функций и наборы параметров могут отличаться для разных режимов)
  MoveTo(Round(A.x, Round(A.y));
  LineTo(Round(B.x), Round(B.y));
  LineTo(Round(C.x), Round(C.y));
  LineTo(Round(A.x), Round(A.y));

// Заливаем его цветом (имя функции и набор параметров могут отличаться для разных режимов)
  Fill(Round((A.x + B.x + C.x) / 3), Round((A.y + B.y + C.y) / 3), Color); // точка в центре треугольника для его заливки соответствующим цветом
end;

CONST
  d: single = 180 / (7 * pi);

VAR
  color: array [0 .. 6] of Cardinal = ($FFFFFF, $0000FF, $00FF00, $00FFFF, $FF0000, $FF00FF, $FFFF00);
  i: Integer; r, x, y: single;

BEGIN
// Инициализация вывода графики или создание окна
// ...

// Рисование равностороннего семиугольника состоящего из треугольников
  x := 100; y := 100; r := 75;
  for i := 0 to 6 do
    Triangle(
      Point(x, y),
      Point(x + r * sin(d * i), y + r * cos(d * i)),
      Point(x + r * sin(d * (i + 1)), y + r * cos(d * (i + 1))),
      color[i]);
END.

[Aleksos]

Извиняюсь, в PascalABC.NET.