I know that the first test is like sample, so I passed
begin
  writeln('2.6346295');
  write('4 4 2 1 3');
end.
and got WA#2. And my REAL program get the same answer, but I have Crash (floating-point invalid operation) from Judge.
This is my program:
[Code deleted by author]
Please, answer me anybody!

Edited by author 24.01.2007 23:29

I don't understand FreePascal at all:)
Paste this line
Type  extended=real;

Thank you very much!!! AC now!
PS I have never done this myself!)