Даны два числа А и В (А<В). Найти произведение всех целх чисел от А до В включительно. Fortran

    program AB        integer a,b,i,p        read (*,*) a,b        p=1        do i=a,b            p=p*i        enddo        write (*,*) p        stop    endТестовое решение для ввода 3 8 20160