var test:int
var divs : int
put "Please enter a number"
get test

function prime (a : int) : boolean
    for i : 2 .. a
        if a mod i = 0 then
            result false
        end if
    end for
    result true
end prime

procedure find (test : int)
    for x : 2 .. test
        if test mod x = 0 then
           divs:= test/x
        end if
    end for
    if prime(divs) = true then
    put divs, " Is a prime divisor of ", test
    end if
end find