program rekurenncja;
uses crt,graph;
var
wspx,wspy,r,e:integer;
ster,tryb:integer;
procedure okregi(x,y,r,e:integer);
var
nowy:integer;
begin

circle(x,y,r);
nowy:=r div 2;
if nowy>=e then
begin
setcolor(random(15)+2);
okregi(x+nowy,y,nowy,e);
setcolor(random(15)+2);
okregi(x-nowy,y,nowy,e);
end;
end;
BEGIN
randomize;
clrscr;
readln(wspx,wspy,r,e);
ster:=detect;
initgraph(ster,tryb,'');
okregi(wspx,wspy,r,e);
readln;
closegraph;
END.