const n=4;
var i:integer;a:array[1..n]of int64;
begin
for i:=1 to n do
readln(a[i]);
for i:=n downto 1 do
writeln(sqrt(a[i]):0:4);
end

There algorithm more complex

Edited by author 28.02.2008 08:35