function[]=mcm(a,b)
d=0;
j=(a*b);
for n=a:a:j
    for m=b:b:j
        if m==n
            d=d+1;
            s=m;
            if d==1
                z=m;
            end
        end
    end
end
disp('il minimo comune multiplo è:')
disp(z)