algoritimo "TP"

var

M : vetor[1..5,1..5] de inteiro

L,C : inteiro

inicio

para L de 1 ate 5 faca

para C de 1 ate L faca

se ((C=1) ou (L=C)) entao

M[L,C] <- 1

senao

M[L,C] <-M[L-1,C] + M[L-1,C-1]

fimse

fimpara

fimpara

para L de 1 ate 5 faca

para C de 1 ate l faça

escreva(M[L,C]:3)

fimpara

escreval

fimpara

fimalgoritmo