program fibonacci

implicit none

! program wyswietla wartosc kolejnych wyrazow ciagu fibonacciego


integer :: i, max, a1, a2, a3


write(*,*)'Jaka max wartosc wyrazu mam wyswietlic?'
read(*,*) max

a1 = 0
a2 = 1

write(*,*) a1
write(*,*) a2

a3 = 1

do 

if (a3 .gt. max) then
   
   exit

else
   write(*,*) a3
   

   a1 = a2
   a2 = a3
   a3 = a1 + a2

end if
end do



end