ΝΑ<--0Για i από 1 μέχρι 100Αν Π[i]=ΑΛΗΘΗΣ τότε ΝΑ<--ΝΑ+1Τέλος_επανάληψηςΓια i από 1 μέχρι ΝΑΠ[i]<--ΑΛΗΘΗΣΤέλος_επανάληψηςΓια i από ΝΑ+1 μέχρι 100Π[i]<--ΨΕΥΔΗΣΤέλος_επανάληψης
ΝΑ<-0Για i από 1 μέχρι 100 Αν Π[i]=ΑΛΗΘΗΣ τότε ΝΑ<-ΝΑ+1Τέλος_ανΤέλος_επανάληψηςΓια i από 1 μέχρι 100 Π[i]<- i<=ΝΑΤέλος_επανάληψης
κ ← 1 Για ι από 1 μέχρι 100 Αν Π[ι] τότε Για λ από ι μέχρι κ+1 με_βήμα -1 Π[λ] ← Π[λ-1] Τέλος_επανάληψης Π[κ] ← Αληθής κ ← κ+1 Τέλος_αν Τέλος_επανάληψης