Exercício triângulo pascal

Segue (na linguagem do fortran) o exercício feito em sala de aula do triângulo de pascal (aquele do guarda-chuva)

program pascal2

integer N, A(100,100), i, j

read*, N

do j=1, N, 1

a(1,j) = 2*j

enddo

do i=2, N-1, 1

a(i,1) = 2

enddo

do i=2, N, 1

do j=1, N-1, 1

if (i+j ==N+1) then

A(i,j) = A(1,N)

Endif

enddo

enddo

do i=2, N-1, 1

do j=2, N-1, 1

if (i+j<N+1) then

A(i,j) = A(i,j-1) + A(i-1,j-1) + A(i-1,j)

endif

enddo

enddo

Do i=1, N, 1

print*, (A(i,j), j=1, N-i+1)

enddo

END