помогите пожалуйста
в паскале задали написать программу для такого рисунка. кто поможет?
ну, чтобы ровно было..

uses graphABC;
var
 i: integer;
begin
 setwindowsize(800,800);
 for i := 10 downto 1 do
   circle(400, 400, i * 35)
end.

спасибо!