{\rtf1\ansi\ansicpg1254\deff0{\fonttbl{\f0\fnil\fcharset162 Tahoma;}} \viewkind4\uc1\pard\lang1055\f0\fs16 var\par a,x,y,z,rad: intger;\par Begin\par x := strtoint( inputbox('X of Center','','10')); \par y := strtoint( inputbox('Y of Center','','10')); \par z := strtoint( inputbox('Radius','','20')); \par rad := z;\par for a :=1 to (z div 3) do\par begin\par DrawCircle(0,x,y,rad,1,psSolid,clBlack,bsClear,0,True);\par rad := rad - 2;\par end;\par \par Refresh;\par end.\par }