Para i = 1 hasta long(X) hacer

X[i] = 0

FinPara

X[0] = 1

Para i = 1 hasta long(Q) hacer

S[i] = 0

FinPara

Repetir

Para i = 1 hasta long(I) hacer

E[i] = I[i]

FinPara

Si (R[0]·V[0]) entonces X[0] = 0 FinSi

Si (R[1]·V[1]) entonces X[1] = 0 FinSi

Si (R[2]·V[2]) entonces X[2] = 0 FinSi

Si ((R[3]·V[3])+ (R[4]·V[4])) entonces X[3] = 0 FinSi

Si (R[5]·V[5]) entonces X[4] = 0 FinSi

Si (R[3]·V[3]) entonces X[0] = 1 FinSi

Si ((R[0]·V[0])+ (R[5]·V[5])) entonces X[1] = 1 FinSi

Si (R[1]·V[1]) entonces X[2] = 1 FinSi

Si (R[2]·V[2]) entonces X[3] = 1 FinSi

Si (R[4]·V[4]) entonces X[4] = 1 FinSi

R[0] = E[1]

R[1] = E[2]

R[2] = (T[2] > 20)

R[3] = E[3]·(/(E[1]+E[4]))

R[4] = E[1]+E[4]

R[5] = (T[4] > 0.5)

V[0] = X[0]

V[1] = X[1]

V[2] = X[2]

V[3] = X[3]

V[4] = X[3]

V[5] = X[4]

S[1] = X[1]

S[2] = X[3]

S[3] = X[1]+X[3]

Para i = 1 hasta long(Q) hacer

Q[i] = S[i]

FinPara

HastaQue PasoAStop