program main integer n read *, n write (6,fmt='(I0)') combination(n, 4)*int(26**(n-4)) contains integer function combination(n, r) integer n, r, i, ans r = min(r, n-r) ans = 1 do i = n - r + 1, n ans = ans * i end do do i = 1, r ans = ans * i end do combination = ans end function combination end program main