Помогите с информатикоц

var   x,z,i: real; begin    i:=0;    z:=1;    x:=39;    while i < 4 do         begin            z:=(z+x/2)/2;            i:=i+1;         end;    writeln('z: ',z); end. _______________________ ОТВЕТ: 18.34375 (ОКРУГЛИ, до нужного знака) _______________________