I can't understand why I get WA on test #1.

var
  a : longint;
  b : real;
begin
  while not eof(input) do
   begin
    while not eoln(input) do
     begin
      read(a);
      b:=sqrt(a);
      writeln(b:1:4);
     end;
    readln;
   end;
end.

The sqrt's must follow in the reverse order.