Нарисовать цикл уменьшающихся кружков в паскале! написал вот это, но из-за разности радиуса кружки либо далеко, либо друг на друге. как сделать так чтобы они просто касались друг друга? uses graphabc; var x,y,r,i: integer; begin y: =200; r: =50; for i: =1 to 4 do begin circle(x,y,r); r: =r-10; x: =x+80 end; readln end.