как записать формулу в паскале (2n-1)/(2^n)

program new;
var
i,y,n,z:ineger;
begin
z:=1;
readln("vvedite n = ",n);
for i:=1 to n do
z:=z*2;
y:=(2*n-1)/(z);
writeln("otwet = ",y);
end;