【新建项目】
3、【编写代码】
program main
implicit none
integer::i
integer::su(30)
su(1)=1
su(2)=1
print *,su(1)
print *,su(2)
do i=3,99
su(i)=su(i-2)+su(i-1)
print *,su(i)
end do
end
4、【在codeblocks中编译、链接】
5、【测试、运行,结果如下】