function occurences (numbers : array 1 .. * of int, number : int) : int
    var count : int := 0
    for i : 1 .. upper (numbers)
        if numbers (i) = number then
            count += 1
        end if
    end for
    result count
end occurences

var numbers : array 1 .. 5 of int := init (1, 2, 3, 4, 4)
var num : int := 4

put occurences (numbers, num)