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