Pascal/Turbo Pascal - Ejercio de logica

Escriba un algoritmo en pseudocódigo que permita generar el valor de verdad de la
fórmula proposicional
p v (q → p)
frente a cada asignación posible de sus variables proposicionales.