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

First: You needn't so big array...
Second: Try first to read whole input, and than output it in reverse oreder.

Thank you!!!

Third one: you should use extended type, not int64 one