Define LibPub cpq()=

Prgm

:Local i,ele,a1,b1,c1,d1,t1,t2,r

:Request "Compuesto=",ele

:i:=1

:While ele≠nombre[i] and i<dim(nombre)

:i:=i+1

:EndWhile

:If ele=nombre[i] Then

:a1:=constante_a[i]

:b1:=constante_b[i]

:c1:=constante_c[i]

:d1:=constante_d[i]

:Request "T1=",t1

:Request "T2=",t2

:

:8.314*∫(a1+b1*10^(−3)*t+c1*10^(−6)*t^(2)+d1*10^(5)*t^(−2),t,t1,t2)→r

:Disp "Cp(Joule)=",r

:Else

:Disp " No encontrada"

:EndIf

:EndPrgm

How to solve "Error: A test did not resolve to TRUE or FALSE"?