никак не получается верный ответ, хотя вроде все правильно. кто может - желательно программу в паскале, так я смогу разобраться с:

Результат: 27.25
Если округлить до десятых, то: 27.3
 
Var
  x,z : Real;
  i : Byte;
Begin
  x:=58;
  z:=1;
  i:=0;
  Repeat
    z:=(z+x/2)/2;
    Inc(i);
  Until i>=4;
  Writeln(z);
end.