Помогите пожалуйста...

Есть три явные ошибки: 1) начальное f:=0, а должно быть f:=1, иначе при умножении на ноль всегда будет ноль. 2) в условии цикла k