var
   a:array [1..200000] of int64;
   n,i: integer;
begin
   while not seekeof  do
   begin
     inc(i);
     read(a[i]);
   end;
   for n:=i downto 1 do
   begin
     writeln(sqrt(a[n]):4:4);
   end;
end.

I copied the solution from the other guy
p.s. Sorry man, i dont know your nickname

Edited by author 09.06.2017 11:43