Нарисовать рисунок - Pascal ABC (249485)

uses graphABC;
procedure ris1(x,y,r:integer);
var u:real;
    i,x1,y1:integer;
begin
setbrushcolor(clMedGray);
setpencolor(clMedGray);
circle(x,y,r);
setbrushcolor(clDkGray);
u:=pi/2;
for i:=1 to 6 do
 begin
  x1:=x+round(r*cos(u));
  y1:=y+round(r*sin(u));
  circle(x1,y1,r div 3);
  u:=u+pi/3;
 end;
end;
procedure ris2(x,y,r,r1:integer);
var u:real;
    i,x1,y1:integer;
begin
ris1(x,y,r);
u:=pi/2;
for i:=1 to 6 do
 begin
  x1:=x+round(r1*cos(u));
  y1:=y+round(r1*sin(u));
  ris1(x1,y1,r);
  u:=u+pi/3;
 end;
end;
procedure ris3(x,y,r,r1,r2:integer);
var u:real;
    i,x1,y1:integer;
begin
u:=pi/2;
for i:=1 to 6 do
 begin
  x1:=x+round(r2*cos(u));
  y1:=y+round(r2*sin(u));
  ris2(x1,y1,r,r1);
  u:=u+pi/3;
 end;
end;
var c,x,y,r,r1,r2:integer;
begin
setwindowsize(500,500);
centerwindow;
c:=windowwidth div 2;
x:=c;
y:=c;
r:=15;
ris1(x,y,r);
r1:=round(2.7*r);
r2:=round(3*r1);
ris2(x,y,r,r1);
ris3(x,y,r,r1,r2);
end.