program z1001;
var n,i,j:longint;
    m:real;
    nums:array[1..131072] of real;
begin
n:=0;
while not EOF  do
begin
  read(m);
  n:=n+1;
  nums[n]:=sqrt(m);
end;
for i:=n downto 1 do
  writeln(nums[i]:0:4);
end.

Как считать данные до конца входного потока

Для решения некоторых задач требуется уметь читать входные данные до конца входного потока. Следующие примеры показывают, как можно организовать ввод до конца входного потока в случаях, если входные данные состоят из чисел, из строк или из отдельных символов.
{numbers}
var n: integer;
...
while not seekeof do
begin
   read(n);
   ...
end;