program main
    implicit none
    integer :: r1,r2,r3,r4
    r1 = 1919
    r2 = 1919-1
    r3 = 1
    DO WHILE (MOD(r1, r2) /= 0)
        r2 = r2-1
    END DO
    print *, r2
    print *, (r1/r2)
end program main