Составьте программу рисования 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.