PROGRAM taulukko
  IMPLICIT NONE
  INTEGER, PARAMETER :: n = 10
  REAL :: a
  REAL, DIMENSION(n) :: b
  REAL, DIMENSION(n,n) :: c, d
  INTEGER :: i, j

  CALL RANDOM_NUMBER(b)
  CALL RANDOM_NUMBER(c)

  WRITE (*,*) b

  DO i = 1,n
    DO j = 1,n
      d(j,i) = 1.0 - c(j,i)
    END DO
  END DO
  DO j = 2, n
    a = b(j) - b(j-1)
    DO i = 2, n
      c(i,j) = a*c(i-1,j) + d(i,j)
    END DO
  END DO

  WRITE (*,*) 'Vastaus:', c(n,n)
END PROGRAM taulukko