1 2 3 4 5 6 7 8 9 10 11 12 13
int ::temp int::a int::b int::i a=1 b=1 i=0 do i=0,10 print*,a," " endprint temp =a+b a=b b=temp end do