uses graph,crt;
var gd,gm,n,i:integer;
begin
initgraph(gd,gm,'c:\bp\bgi');
outtext('Введите кол-во окружностей');
readln(n);
clearviewport;
FOR i:= 1 TO n do
begin;
CIRCLE (Random(640),Random(480), 50)
end;
repeat;
until keypressed;
closegraph;
end.