какой результат выполнения этого фрагмента программы ?

f:=2 i:-16
while i>0 do
begin
f:2* f-1;
i: =i-4
end
write f
end.