For_Dima_2

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