CLS
INPUT "Diga un numero....", A1
LET A2 = A1 * A1
PRINT "El cuadrado del numero es", A2
END