完成函数fun（）的编写，程序其它部分不能改动。fun（）函数的功能是给定参数n,m，返回给定m,n的最大公约数。
program exam(input,output);
var n1,n2,sum :integer;
function fun(n:integer，n:integer):integer;
begin
write(‘input n1:n2’);
readln(n1,n2);
sum:=fun(n1,n2);
writeln(‘sum=’,sum);
end.
6、编写一pascal程序，求3x2+12x+9=0的解。

function fun(n:integer;m:integer):integer;
var
x:integer;
begin
while n mod m <>0 do
begin
writeln(m,' ',n);
x:=n;
n:=m;
m:=x mod m;
end;
fun:=m;
end;
先来个循环的

function fun(n:integer;m:integer):integer;
begin
if n mod m =0 then exit(m) else fun:=fun(m,n mod m);
end;
再来个递归的。 简单多了。