program Project1;

var m:array [1..131072] of extended;
    i,j:longint;

begin

  i:=0;
  while not seekeof do begin
    inc(i);
    read(m[i]);
    m[i]:=sqrt(m[i]);
  end;
  for j := i downto 1 do writeln(m[j]:30:4);

end.