小弟近日练习函数又遇一奇怪的问题，题的原意是 输入A，B，C三数，然后定义一函数MAX，选出最大数，然后根据MAX算出一个M的值，公式也给了，程序如下：
program E57b;
  var
    a,b,c:integer;
    m:real;
  function max(a,b,c:integer):integer;
    begin
      if a>b
        then max:=a
        else max:=b;
      if [i][b]max<c[/b][/i]
        then max:=c;
    end;
  begin
    read(a,b,c);
    m:=max(a,b,c)/(max(a+b,b,c)*max(a,b,b+c     ));
    writeln('m=',m)
  end.
运行时系统却提示粗体处处缺少“（”，请各位高手指点迷津，谢！！