{Programma zime rinkus un krustus} uses crt,graph; var x,y,sk,r,g:integer; gr,gm:integer; procedure rr(x,y,r,sk:integer); begin circle(x+2*r,y,r); circle(x-2*r,y,r); circle(x,y+2*r,r); circle(x,y-2*r,r); if sk>1 then begin rr(x+3*r,y,r div 4,sk-1); rr(x-3*r,y,r div 4,sk-1); rr(x,y+3*r,r div 4,sk-1); rr(x,y-3*r,r div 4,sk-1); rr(x+2*r,y+r,r div 4,sk-1); rr(x-2*r,y+r,r div 4,sk-1); rr(x+2*r,y-r,r div 4,sk-1); rr(x-2*r,y-r,r div 4,sk-1); rr(x+r,y+2*r,r div 4,sk-1); rr(x+r,y-2*r,r div 4,sk-1); rr(x-r,y+2*r,r div 4,sk-1); rr(x-r,y-2*r,r div 4,sk-1); end; end; procedure ll(x,y,g,sk:integer); begin line(x-g,y, x+g,y); line(x,y-g, x,y+g); if sk>1 then begin ll(x+trunc(3/2*g),y,g div 4,sk-1); ll(x-trunc(3/2*g),y,g div 4,sk-1); ll(x,y+trunc(3/2*g),g div 4,sk-1); ll(x,y-trunc(3/2*g),g div 4,sk-1); ll(x+g,y+(g div 2),g div 4,sk-1); ll(x-g,y+(g div 2),g div 4,sk-1); ll(x+g,y-(g div 2),g div 4,sk-1); ll(x-g,y-(g div 2),g div 4,sk-1); ll(x-(g div 2),y+g,g div 4,sk-1); ll(x+(g div 2),y+g,g div 4,sk-1); ll(x-(g div 2),y-g,g div 4,sk-1); ll(x+(g div 2),y-g,g div 4,sk-1); end; end; begin clrscr; writeln('Ievadi garumu==>'); readln(g); x:=320; y:=240; r:=trunc(g/2); writeln('Ievadi skaitu==>'); readln(sk); gr:=9 ; gm:=2; initgraph(gr,gm,'z:\'); ll(x,y,g,sk); rr(x,y,r,sk); readkey; end.