uses graphabc;
var
i: integer;
begin
setwindowsize(600, 101);
for i := 0 to 5 do
circle(50 + i * 100, 50, 50);
circle(50 + i * 100, 50, 15);
end;
end.
uses graphabc;
var
i: integer;
begin
setwindowsize(600, 101);
for i := 0 to 5 do
begin
circle(50 + i * 100, 50, 50);
circle(50 + i * 100, 50, 15);
end;
end.