uses GraphABC;
var r:integer;
begin
readln (r);
while r<>0 do
Circle(random(631),random(471),r);
readln (r)
end
end.
uses GraphABC;
var r:integer;
begin
readln (r);
while r<>0 do
begin
Circle(random(631),random(471),r);
readln (r)
end
end.