CLS

INPUT "diga un numero..", a1
LET c1 = a1 ^ 2
PRINT "el cuadrado del numero es..", c1
END