Quadrati con variabile lato e numero

CLEARSCREEN ;pulisce la pagina
HOME
HEADING 0 ;posiziona a tartaruga
PENSTYLE “SOLID” ;definisce lo stile della penna
PENSIZE 2 ;definisce lo spessore del tratto
LATO = FLOAT (INPUT “INSERISCI  IL LATO DEL QUADRATO”)
NUMERO = FLOAT (INPUT “INSERISCI IL NUMERO DI QUADRATI”)
REPEAT NUMERO [
PENCOLOR ANY
FORWARD LATO
RIGHT 90
FORWARD LATO
RIGHT 90
LATO = LATO – 10
IF LATO < 2 [ BREAK ]
]
HIDETURTLE ;nascondo la tartaruga
PENUP ;alzo la penna
POSITION [90, 50] ;nuova posizione
PENDOWN ;abbasso la penna
HEADING 0 ;oriento la tartaruga
SHOWTURTLE ;mostro la tartaruga