please help!

var n,i:longint;
    a:array[1..50000] of extended;
begin
n:=0;
while not seekeof  do
begin
  n:=n+1;
  read(a[n]);
end;
for i:=n downto 1 do
  writeln(sqrt(a[i]):0:4);
end.

Edited by author 31.01.2016 20:01

Edited by author 31.01.2016 20:02

Edited by author 31.01.2016 20:02