This is my code
-----------------------------------------
var
  j,i: longint;
  a: array[1..100000000] of real;
begin
  i:=1;
  while not EOF do
  begin
    read(a[i]);
    i:=i+1;
  end;
  for j:=i-1 downto 1 do
    writeln(sqrt(a[j]):0:4);
end.
-----------------------------------------

Why is it wrong? can anyone please explain? thanks a lot

Edited by author 10.03.2019 13:21