Нарисовать рисунок

uses graph;
const n=5;
      m=9;
var xc,yc,i,j,x,y,x1,y1:integer;
    u,u1:real;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
u:=3*pi/2-pi/10;{можно увеличить знаменатель, 12,15,20}
for i:=1 to n do
 begin
  u1:=u;
  for j:=1 to m do
   begin
    x:=xc+round(100*cos(u1));
    y:=yc-round(100*sin(u1));
    circle(x,y,100);
    u1:=u1+2*pi/10/m{если менять знаменатель, то здесь менять 10}
   end;
  u:=u+2*pi/5
 end;
readln
end.