PROCEDURE miniOval;
VAR
   
   startAng,rad,rotang :REAL;
   n,i,w:INTEGER;
BEGIN
   

   w:= PWIDTHTABLE;
   n:= PNUMBEROFCHAIRS;
   startAng:=0;
   rotang:= 360/n;
   rad:= w/2;
   
   
   PenSize (14);
   PenFore (33333,11111,11111);
      FOR i:=1 TO n DO BEGIN;
         ArcByCenter (rad,0,rad/4,startAng,360);
         RotatePoint (0,0,rotang);
         Redraw;
      
      END;   

   DSelectAll;
   PenSize(28);
   PenFore (66666,33333,22222);
   ArcbyCenter (0,0,rad,startAng,360);


END;

RUN(miniOval);