Where can be a problem?
Wrong answer 3
Pascal

program coun;

var a:array[1..1000000] of extended;
i,j:integer; k:extended;
begin
i:=0;
repeat
 read(k);
 i:=i+1;
 a[i]:=sqrt(k);
until eof();
for j:=i-1 downto 1 do
begin
writeln(a[j]:0:5);
end;
end.

Do read() unite separated digits in correct values, to sqrt`em further?
I think, something is here.