Números cuadrados con WinLogo (LOGO)

; ---------------------------------------------------------
; Uns quants nombres quadrats
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
procediment llista.de.nombres.quadrats :num
  si :num > 15 [acaba]
  (escriu [el quadrat de] :num "és :num * :num) 
  llista.de.nombres.quadrats :num + 1
fi
; ---------------------------------------------------------
llista.de.nombres.quadrats 1 ;exemple