Can You give me some tests? I don't know how I can check my program. I have doubt about inputting.

While not seekeof do
      begin
         inc(n);
         read(a[n]);
      end;
How can I check what gives WrongAnswer.

Edited by author 04.07.2007 01:27

Probably you get WA just because it doesn't calculate the root, so there's no actual solution to the problem.