CLS

INPUT "diga un numero..", a1
LET b1 = a1 * 2
PRINT "el doble del numero es..", b1
END