Cred ca e limita aiurea pt. pascal nu stiu, incearca sa scoti if-ul ala si sa faci dintr-una, cu un indice P pe care-l modifici cum vrei : P := 1 - P, P := P xor 1 sau faci cu 2 indici, P si Q, pe care-i interschimbi

. Daca asa nu merge, raporteaza lui Vlad sa vezi ce zice el

.