var a:array[1..1000000] of int64;
    i,j:longint;
begin
{$IFNDEF ONLINE_JUDGE}
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
{$ENDIF}
i:=0;
while not seekeof do begin
inc(i);
read(a[i]);
end;
for j:=i downto 1 do
writeln(sqrt(a[j]):0:4);
{$IFNDEF ONLINE_JUDGE}
close(input);
close(output);
{$ENDIF}
readln;
end.

Hey it is wrong

my solution is the same but it gets WA#1 :)

good

Thanks)

Thanks a lot! Accepted!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

TYPE
  node=^Tnode;
  Tnode=Record
    data:Extended;
    next:node;
  END;
VAR
  n:Qword;
  k:Extended;
  list,temp:node;
BEGIN
  new(list);
  list^.next:=nil;
    while not seekeof do
      BEGIN
        read(n);
        k:=sqrt(n);
        new(temp);
        temp^.data:=k;
        temp^.next:=list^.next;
        list^.next:=temp;
      END;
    while list^.next<>nil do
      BEGIN
        writeln(list^.next^.data:0:4);
        list^.next:=list^.next^.next;
      END;
END.