var
   a:array [1..200000] of int64;
   n,i: integer;
begin
{$IFNDEF ONLINE_JUDGE}

{$ENDIF}
   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;
{$IFNDEF ONLINE_JUDGE}

{$ENDIF}
end.

bug in this line ( while not seekeof  do )
look this http://pascal.net.ru/SeekEof

see this http://acm.timus.ru/help.aspx?topic=pascal