pascal语言 求n个自然数的最大公约数和最小公倍数

program sd; const m=3;var a:array[1。。m]of integer; i,s,n:integer;function zdgy(num1,num2:integer):integer;var j,k:integer;beginif num1num2 then k:=num1 else k:=num2;for j:=k to num1*num2 doif (j mod num1=0)and(j mod num2=0) then beginzxgb:=j;exit;end;end;beginfor i:=1 to m doreadln(a[i]);s:=a[1];n:=a[1];for i:=2 to m dobegins:=zdgy(s,a[i]);n:=zxgb(n,a[i]);end;writeln('zui da gong yue shu shi ',s);writeln('zui xiao gong bei shu shi ',n);end。m是这些数的个数,这些数要自己赋值