var a, x, y, z, result, statuscode, threshold
body
    threshold := 10
    read a
    if a = 0 goto GETNUMS
    if a = 1 goto GETNUMS
    goto ERROR

GETNUMS:
    read x
    read y
    if a <> 1 goto DIVNUMS

MULNUMS:
    result := x * y
    if result > threshold goto OVERFLOW
    goto WRITERESULT

DIVNUMS:
    result := x / y
    if result > threshold goto OVERFLOW
    goto WRITERESULT

WRITERESULT:
    z := result
    write z
    statuscode := 0
    goto FINISHED

OVERFLOW:
    z := 0
    z := z - 1
    z := z - 1
    statuscode := z
    goto FINISHED

ERROR:
    statuscode := -1 
    goto FINISHED

FINISHED:
    write statuscode
end