do loop 2ser azaltma

program  loop
    implicit none     
    integer  :: i
    do i = 5,-5,-2
        print  *,i
    end  do
    end  program loop