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

You think there are 4 and only 4 numbers in the input.
Could you quote task fragment declaring it?

Edited by author 21.02.2017 14:22