пусть дан массив a [1...n], n

примени эту прогу
{Нахождение НОД }
var a,b: integer;
begin
write('Ввести 2 целых числа --> ');
readln(a,b);
while a*b > 0 do
if a >= b then a:= a mod b else b:= b mod a;
write(a+b);
readln;
end.