CLS INPUT "Introdusca el numero"; n
LET D = n * n
PRINT "El cuadrado de "; n; "es"; D
END