Uses graphabc; vari, 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.
Answers & Comments
Verified answer
Uses graphabc;vari, 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.