Prime

decl
    int n,i,j;
enddecl
    read(n);
    j=0;
    if(n%2==0) then
        j=1;
    else
        i=3;
        while(i<=n/2) do
            if(n%i==0) then
                j=1;
            endif;
            i=i+2;
        endwhile;
    endif;
    if(j==0) then
        write("Prime");
    else 
        write("Not Prime");
    endif;