CLS
DIM num(1 TO 2) AS INTEGER
FOR i = 1 TO 2
    INPUT "enter a number ", num(i)
NEXT i
FOR j = 1 TO 2
    LET sum = num(1) * num(2)
NEXT j
PRINT "product is ", sum
LET geo = SQR(sum)
PRINT "geometric mean is ", geo
END

PROGRAM RESULT