Составьте программу рисования 8 окружностей радиусом 40 с координтами центров окружностей: (40,180), (120,189),(200,180)...

uses graphabc; var i, s: integer;  begin   s := 0;   pen.Width := 2;   window.Init(0, 0, 800, 600, clwhite);   window.IsFixedSize := true;   for i := 1 to 8 do    begin     if(i.IsOdd) then DrawCircle(40 + s, 180, 40)     else DrawCircle(40 + s, 189, 40);     s := s + 80;   end; end.