function R=razbij(a);

n=ceil(a/2);
R=[];

for i=2:n
    if (floor(a/i))==(a/i)
        if isprime(a/i)
            if isprime(i)
                R=[R; a/i i];
            end
        end
    end
end
