var
  i,j,k,l,m:longint;
  n:qword;
  a:array[1..10000000]of qword;
  q:double;
begin
  n:=0;
  while not eof do begin
    inc(n);
    read(a[n]);
  end;
  for i:=n-1 downto 1do begin
    writeln(sqrt(a[i]):0:4);
  end;
end.

I finally found where I did wrong...
var
  i,j,k,l,m:longint;
  n:qword;
  a:array[1..10000000]of qword;
  q:double;
begin
  n:=0;
  while not seekeof do begin
    inc(n);
    read(a[n]);
  end;
  for i:=n downto 1do begin
    writeln(sqrt(a[i]):0:4);
  end;
end.

should use "seekeof" instead of "eof"