uses Graph, Crt;

const Min = 0;
     Max = 1256;

var
  Gd, Gm  : Integer;
  I, R    : Integer;
  X0, Y0  : Integer;
  BigPoly : array[Min .. Max] of PointType;

begin
 Randomize;
 { Распределяем 8Кб буфер в куче, чтобы закрасить
    полигон с 1256-ю вершинами }
  SetGraphBufSize(8 * 1024);
  Gd := Detect;
  InitGraph(Gd, Gm, 'X:\BP');
 if GraphResult <> grOk then
   Halt(1);
  X0 := GetMaxX;
  Y0 := GetMaxY;
  R := Y0 div 2;
 { Определяем в массиве координаты точек для
    построения полигона в виде окружности
    с 1256-ю вершинами и радиусом R }
 for I := Min to Max do
   with BigPoly[I] do
   begin
      X := X0 div 2 + Round(R * Sin(I/200));
      Y := Y0 div 2 + Round(R * Cos(I/200));
   end;
 { Закрашиваем полигон }
  FillPoly(SizeOf(BigPoly) div SizeOf(PointType), BigPoly);
 { Ждём нажатия на клавишу }
 repeat
 until KeyPressed;
end.