CLS
 PRINT "Calcule el cuadrado de un numero"
 INPUT "Diga un numero", A1
 LET B1 = A1 * A1
 PRINT "El cuadradro del numero es", B1
 END