var num : int
var sent : int := 0

proc prime (value : int)
    for i : 2 .. value
        for ii : 2 .. value
            if i * ii = value then
                put i, '*', ii
                sent += 1
            end if
        end for
    end for
    if sent = 0 then
        put "Prime number"
    end if
    sent:=0
end prime

loop
    put "enter a number: " ..
    get num
    prime (num)
    locate (1, 1)
    Input.Pause
    cls
end loop