clg
l=int(rand*10)
for q=1 to l
x=int(rand*270)
y=int(rand*270)
circle x, y, 10
next q
pause 1
clg
intentos=0
do
input "Introduzca nº de bolas ", y
intentos=intentos+1
if y<>l then
print "Has fallado"
end if
until y = l OR intentos=3
if intentos = 3 then
print "Cupo de intentos cubierto"
else
print "Has acertado"
end if
