uses GraphABC;
var
diam,i,x:integer;
Begin
x := 50;
for i:= 0 to 5 do begin
Circle(x,50,50);
x := x + 100;
end;
End.
