Para i = 1 hasta long(X) hacer

X[i] = 0

FinPara

X[0] = 1

X[16] = 1

M = 0

Para i = 1 hasta long(Q) hacer

S[i] = 0

FinPara

Repetir

Para i = 1 hasta long(I) hacer

E[i] = I[i]

FinPara

Repetir

Para i = 1 hasta long(X) hacer

V[i] = X[i]

FinPara

R[0] = E[1]

R[1] = E[3]

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

R[3] = E[5] · E[6]

R[4] = E[3]

R[5] = E[2]

R[6] = V[7]

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

R[16] = /E[7]

R[17] = E[8]

R[18] = E[9]

R[19] = E[10]

Si G[0] = 0 entonces

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

FinSi

Si G[1] = 0 entonces

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

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

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

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

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

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

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

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

FinSi

Si (X[17]+X[18]+X[19]) entonces G[0] = 1 FinSi

Si (X[18]) entonces

Para i = 1 hasta 15 hacer

X[i] = 0

FinPara

FinSi

Si (X[19]) entonces

Para i = 1 hasta 15 hacer

X[i] = 0

FinPara

X[3] = 1

X[6] = 1

FinSi

K = 0

Para i = 1 hasta long(X) hacer

Si (V[i] = X[i]) entonces K = 1 FinSi

FinPara

HastaQue K = 0

S[1] = X[2] · (/M)

M = X[2]

Si (X[1]) entonces S[2] = 1 FinSi

Si (X[3]) entonces S[2] = 0 FinSi

S[3] = ((X[7]·E[1])+(X[4]·(T[4]<3)))

S[4] = (X[5]·(T[5]>2))

Para i = 1 hasta long(Q) hacer

Q[i] = S[i]

FinPara

HastaQue PasoAStop