function d=mcd(a)
% d=mcd(a) da el mcd (maximo comun divisor) de los numeros enteros 
%                  contenidos en el vector a.

n=length(a);
if n==1, d=a(1), break 
end
d=a(1);
for i=2:n
      d=gcd(d,a(i));
end
