INPUT n             ' lee desde teclado el valor de n

WHILE i < n         ' repite mientras i sea menor que n
    i = i + 1       ' pasa al siguiente n£mero
    c = i * i       ' eleva al cuadrado
    PRINT i, c      ' imprime el n£mero y su cuadrado

WEND                ' cierra el bucle repetitivo