function summa takes unit n returns boolean
local integer i
local boolean s
    set i = 0
    set s = true
      loop
        exitwhen i < 100
        set i = i + 1
        if ([i]mass2 == n) then set s = false else nothing endif
      endloop
return s
endfunction

globals
    unit array mass
endglobals

function Find takes unit u returns boolean
    local integer i = 0
    loop
    exitwhen i == 100
        if mass[i] == u then
            return true
        endif
        set i = i + 1
    endloop
    return false
endfunction