var
a:array [1..500] of real;
n,i:longint;
begin
while not eof do
begin
  inc(n);
  read (a[n]);
  a[n]:=sqrt(a[n]);
end;
for i:=n downto 1 do
writeln (a[i]:0:4);
end.
why "Wrong answer"??

Edited by author 27.09.2011 21:05