function r = rozklad(x)

% nalezeni prvocisel mensich nez sqrt(x)
prv = [];
for i = 1:x
    if(isprime(i))
        prv = [prv,i];
    end
end

% vlastni rozklad
r = [];
if(isprime(x))
    r = x;
else
    while x ~= 1
        for i = 1:length(prv)
            if(mod(x,prv(i)) == 0)
                r = [r,prv(i)];
                x = x/prv(i);
            end
        end
    end
end