program natural_numbers
implicit none

! program wypisujacy dowolna ilosc liczb naturalnych

integer :: i ! deklaracja zmiennej typu calkowitego
integer :: amount
integer :: numer

write(*,*) 'Ile liczb naturalnych wypisac?'
read(*,*) amount

numer = 1 ! inicjalizacja zmiennej

if (amount <= 0) then  ! warunek if
   write(*,*) 'Nie moge wypisac zadnej liczby!'
else
   do i = 1, amount  ! petla do
      write(*,*) numer
      numer = numer + 1 ! zwiekszenie wartosci zmiennej
   enddo
endif

end