Помогите пожалуйста!
Дана блок-схема. Какое значение будет иметь z на выходе, если x=40? (При решении и в ответе округляй до десятых)

var x,i:integer;    z:real;    begin    read(x);    Z:=1;    i:=0;    while i<4 do    begin    z:=(z+x/2)/2;    i:=i+1;    end;    write(z:5:1);    end. Ответ:18,8