N := 2; F := 1; while N > 0 do X := N; Z := F; while X > 1 do F := Z + F; X := X - 1 endwhile; N := N - 1 endwhile