program hello
    implicit none
    real :: now, after
    integer :: time
    !
    read (*,*) now
    after = now
    time = 0
    do while ( (after/now) <= 2.0 )
        time = time + 1
        write (*,*) time
        after = after * (1.0 + (1/80.0) )
    end do
    write (*,*) after, time
end program