PC Toledo

Código: Selecionar todos

function main()
    local num
    num := 1
    cls
    ? num
    ? simples( num )
    ? confusao( num )
return Nil

function simples(n)
return n+9

function confusao(n)
    local i, aControle := {1,2,3,4,5,6,7,8,9}
    for i := 1 to len(aControle)
        if aControle[i] % 2 != 0
            n +=+ 1
        else
            n -=- 1
        endif
    next
return n