输入5个正整数求它们的最大公约数

program wx01;
const m=5;
var a:array[1..m]of integer;
i,s,n:integer;
function zxgb(num1,num2:integer):integer;
var j,k:integer;
begin
if num1>num2 then k:=num1
else k:=num2;
for j:=k to num1*num2 do
if (j mod num1=0)and(j mod num2=0) then
begin
zxgb:=j;
exit;
end;
end;
begin
for i:=1 to m do
readln(a[i]);
s:=a[1];
n:=a[1];
for i:=2 to m do
begin
n:=zxgb(n,a[i]);
end;
writeln('zui xiao gong bei shu shi ',n);
end.

program sd;
var i,s:integer;
a:array[1..5]of integer;
function gy(m,n:integer):integer;
var j:integer;
begin
for j:=m downto 1 do
if (m mod j=0)and(n mod j=0) then begin
gy:=j;
exit;
end;
end;
end;
begin
for i:=1 to 5 do
readln(a[i]);
s:=a[1];
for i:=2 to 5 do
s:=gy(s,a[i]);
writeln(s);
end.