CLS INPUT "Introdusca el numero"; n

 LET D = n * n

PRINT "El cuadrado de "; n; "es"; D

END