Sauriez-vous compter les carrés ?

rem ============================================================================
rem               Un petit casse-tête
rem ============================================================================
label verifier
dim n%,solution%,t$
n% = 3+rnd(8) : solution% = n%*(2*n%*n%+3*n%+1)/6
t$ = "Combien y a-t-il de carrés dans cette grille "+chr$(13)+ "de " + str$(n%)
t$ = t$ + " X " + str$(n%) + " ?"
width 0,700 : color 0,0,0,128 : font_color 0,255,255,0
picture 10 : full_space 10 : width 10,400 : height 10,400 : top 10,20 : left 10,10
2d_target_is 10
alpha 20 : top 20,50 : left 20,430 : font_bold 20
caption 20,t$
edit 30 : top 30,100 : left 30,450 : width 30,50 : set_focus 30
font_color 30,0,0,255 : font_bold 30
button 40 : top 40,150 : left 40,450 : font_bold 40 : caption 40,"Valider"
on_click 40,verifier
Grille(n%)
end
rem ============================================================================
SUB Grille(n%)
    dim_local i,cote
    cote = width(10)/n%
    2d_pen_color 255,255,0 : 2d_fill_color 0,0,0
    2d_rectangle 0,0,width(10),height(10)
    for i = 1 to n%
        2d_line 0,i*cote,width(10),i*cote
        2d_line i*cote,0,i*cote,height(10)
    next i
END_SUB
rem ============================================================================
Verifier:
   if numeric(text$(30)) = 0
      message "Entrez une valeur numérique, SVP !"
      text 30,"" : set_focus 30 : return
   end_if
   if val(text$(30)) = solution%
      message " Bravo !"
   else
      message "Erreur !" + chr$(13)+ "La solution est : "+ str$(solution%)
   end_if
return
rem ============================================================================