Pascal escribe una función que calcula el máximo común divisor (euclidiano) de dos parámetros. Ingrese N, luego ingrese N números y encuentre el máximo común divisor de los N números.

Código fuente de Pascal: {

@brief?Encontrar el máximo común divisor de varios números

@filegcd.pas

@author ?yjf_victor

@fecha2014-11-01

}

programa?GreatestCommonDivisor(Entrada,?Salida);

{ @brief ?Encontrar el máximo común divisor de dos números @param[in]?n?primer número @param[in]?m?segundo número @return?mayor común divisor

}

function?gcd(n,?m:?Integer)?:?Integer;

var?r:?Integer;

comenzar

repetir

r?:=?m?r?=?0;

gcd?:=?m;

end;

{

@brief?proceso principal

}

var?i,?n,?current_gcd,?current_number:?Integer;

comenzar

leer(n);

leer(current_gcd);

para?:=?gcd(current_gcd,?current_number);

fin;

writeln(current_gcd);

fin.