Algoritmia - necisito ayuda urgente para hoy

necisito hacer un programa que pida un numero y determine si el numero es par o impar y si es para le eleve a la 5ta. potencia y si no es par le saque raiz cubica, no se como scar la raiz cubica el programa esta orientado en turbo pasca 7.0 si pueden mandarme respuesta hoy mismo se los agradeceria

inicio
read a
let b=a/2
let c=ent(b*2)
if testc=ent b
echo par
else
echo impar