9,5
Объяснение:
var
z, x : double;
i : Integer;
begin
x := 36;
z := 1;
i := 0;
repeat
z := (z+x/2)/2;
Inc(i);
until i < 4;
writeln(Format('%f', [z]));
end;
