Вы не уточнили, в какой системе программирования.
Будем считать, что это Паскаль. Если нет, логику для Бэйсика можно тоже понять. Всю программу не пишу, только её суть (т.к. все зависит опять же от системы программирования).
for i:=1 to 5 do
circle(200,200,i*10);