Elaborar um algoritmo que mostre a tabela-verdade

Elaborar um algoritmo que mostre a tabela-verdade, como não sei pois estou no inicio da faculdade e isso vale um nota boa e estou tentando ao maximo fazer, mas sinceramente nao estou conseguindo pq meu professor de algoritmo não ensina m***** nem uma!

Se alguem poder me ajudar fico grato.

achei isso pelo forum:

var

p1:vetor[1..16] de inteiro

p2:vetor[1..16] de inteiro

p3:vetor[1..16] de inteiro

p4:vetor[1..16]de inteiro

i:inteiro

inicio

p1[1]<-1, p2[1]<-1, p3[1]<-1, p4[1]<-1

p1[2]<-1, p2[2]<-1, p3[2]<-1, p4[2]<-0

p1[4]<-1, p2[3]<-1, p3[3]<-0, p4[3]<-1

p1[3]<-1, p2[4]<-0, p3[4]<-1, p4[1]<-1

p1[5]<-0, p2[5]<-1, p3[5]<-1, p4[5]<-1

p1[6]<-0, p2[6]<-0, p3[6]<-0, p4[6]<-1

p1[7]<-0, p2[7]<-0, p3[7]<-1, p4[7]<-0

p1[8]<-0, p2[8]<-1, p3[8]<-0, p4[8]<-0

p1[9]<-1, p2[9]<-0, p3[9]<-0, p4[9]<-0

p1[10]<-0, p2[10]<-0, p3[10]<-0, p4[10]<-0

p1[11]<-1, p2[11]<-1, p3[11]<-0, p4[11]<-0

p1[12]<-0, p2[12]<-0, p3[12]<-1, p4[12]<-1

p1[13]<-1, p2[13]<-0, p3[13]<-0, p4[13]<-1

p1[14]<-0, p2[14]<-1, p3[14]<-1, p4[14]<-0

p1[15]<-1, p2[15]<-0, p3[15]<-1, p4[15]<-0

p1[16]<-0, p2[16]<-1, p3[16]<-0, p4[16]<-1

para i de 1 ate 16 faca

Escreval (p1," | ",p2," | ",p3," | ",p4," | ")

fimpara

mas nao consegui continuar