(Pascal) Построение треугольника через радиус описанной окружности.

[Pinosol]

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

[Rin]

procedure triangle(x,y,r:integer);
var
  angle:integer;// градус
begin
 canvas.Pen.Width:=2;
// круг
angle:=0;
Canvas.MoveTo(x+r*cos(angle*pi/180),y+r*sin(angle*pi/180));
for I := 0 to 119 do
  begin
  angle:=angle+3;
  Canvas.LineTo(x+r*cos(angle*pi/180),y+r*sin(angle*pi/180));
  end;
// треугольник
 canvas.Pen.Color:=Clred;
 canvas.Pen.Width:=1;
Canvas.MoveTo(x+r*cos(0),y+r*sin(0));
Canvas.LineTo(x+r*cos(120*pi/180),y+r*sin(120*pi/180));
Canvas.LineTo(x+r*cos(240*pi/180),y+r*sin(240*pi/180));
Canvas.LineTo(x+r*cos(0*pi/180),y+r*sin(60*pi/180));
end;