View.Set ("graphics:max,max")

var diameter : int:=30
var circles : int
var x:int
var y:int


put "How many circles?"
get circles
cls

diameter := diameter div 2




for I: 0..circles

randint (x,0,maxx)
randint (y,0,maxy div 2)

drawfilloval (x,y,diameter,diameter,54)
end for