program ural_1001;
var
t,n,i,j:longint;
a:array [0..1000000] of real;
begin
while not eoln do
 begin
  inc(t);
  read(a[t]);
  a[t]:=sqrt(a[t]);
 end;
for i:=t downto 1 do
 writeln(a[i]:0:4)
 end.

eoln=end of line
"...переводов строк..."=> you must using eof(end of file)

Edited by author 06.07.2011 12:05