Дано n = 11. Вычислить n-е значениепеременной z

var x,y,z:real; k:integer;
begin
x:=0; y:=4/2; k:=2;
while k<=11 do
 begin
 z:=y/2+3/4*x;
 x:=y;
 y:=z;
 k:=k+1;
 end;
writeln('z = ',z);
end.

Результат:
z =5.240234375000000e+00