pascal 题目， 能帮忙做一下嘛？ 谢谢。。。

完成函数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的解。