I don't know were is my mistake! Please, help me find it.

This is code:

{$APPTYPE CONSOLE}
{$i-,q-,r-,n+}

type int = longint;

var m, n, r, s, i, max : int;
    ans : extended;

BEGIN
  while not eof do begin
    readln(m, n, r, s);
    ans := 1; max := 0;
    if max < m then max := m;
    if max < r then max := r;

    for i := 1 to max do begin
      if i <= m then ans := ans*i;
      if i <= r then ans := ans/i;

      if i <= s then ans := ans*i;
      if i <= n then ans := ans/i;

      if i <= r-s then ans := ans*i;
      if i <= m-n then ans := ans/i;
    end;
    writeln(ans:0:5);
  end;
END.

• Re:<DELPHI>I also get WA!!! 我也是这样做的 就是Wa.. 不解 (0) zdker 2005-09-13 22:34:37
  • Re:<DELPHI>I also get WA!!! 我也是这样做的 就是Wa.. 不解 (28) libanghui 2005-09-13 22:39:29
• Re:<DELPHI>I also get WA!!! (715) liuyuyangfoam 2006-02-07 14:01:34