function p5=ex330(n)
    p5=1;
    for k=2:n
        p5=lcm(p5,k);
    end
 
function lc=lcm(a,b)
    m=a;n=b;
    while(m~=n)
        if(m>n)
            m=m-n;
        else
            n=n-m;
        end
    end
    lc=a*b/m;