How can I square a number using marie simulator?

Question

INPUT STORE X STORE XNUM INPUT STORE Y

MULTIPLIERA,LOAD PROD ADD X STORE PROD LOAD XNUM SUBT ONE STORE XNUM SKIPCOND 400 JUMP MULTIPLIERA JUMP NEWPRODUCT

NEWPR