program szakasz;
uses graph,crt;
var gd,gm,x,y,r:integer;
begin
  detectgraph(gd,gm);
  initgraph(gd, gm, 'c:\tp70\bgi');
  repeat
   x:=random(319)+1;
   y:=random(239)+1;
   r:=random(119)+1;
   if (x-r>0) and (x+r<320) and (y-r>0) and (y+r<240) then
      circle(x,y,r);
  until keypressed;
  readln;
  closegraph
end.