Разрезать пиццу на N равных частей Опции

[-Shurik-]

Нужно разрезать круговую пиццу заданного радиуса на n равных частей, делая прямолинейные разрезы.
Не могу понять где я ошибаюсь, и может кто то уже это реализовывал?

[-Shurik-]

Привожу листинг своей программы

Код

uses Graph,crt;

var
  Gd, Gm : Integer;
  Radius : Integer;
  e,n,mx,my,i,j,a,dif : Integer;
  r:integer;

begin

  clrscr;
  writeln('vvedite n -');

  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
  Readln(n);

  mx:=320;my:=240;
  Circle(mx,my,80);
  Circle(mx,my,1);

  a:=0;
  Setcolor(red);
  line(320,240,640*round((Sin(a)/(abs(Sin(a)+00000.1)))),round(320*((Sin(a) / (Cos(a)+0000000.1)))));
  a:=a+round((2*pi/n));
  line(320,240,640*round((Sin(a)/(abs(Sin(a)+00000.1)))),round(320*((Sin(a) / (Cos(a)+0000000.1)))));
  a:=a+round((2*pi/n));
  line(320,240,640*round((Sin(a)/(abs(Sin(a)+00000.1)))),round(320*((Sin(a) / (Cos(a)+0000000.1)))));
  a:=a+round((2*pi/n));
  line(320,240,640*round((Sin(a)/(abs(Sin(a)+00000.1)))),round(320*((Sin(a) / (Cos(a)+0000000.1)))));

  Readln;
  CloseGraph;
end.