Για ι από 1 μέχρι 5
Για ξ από 1 μέχρι 2
Σκορ[ι,ξ]← 0
Τέλος_επανάληψης
Τέλος_επανάληψης
Διάβασε ομάδα1, ομάδα2
σετ<-1
νικες1<-0
νικες2<-0
Όσο σετ<= 5 και νικες1<=3 και νικες2<=3 επανάλαβε
ποντοι1<-0
ποντοι2<-0
σημαια<-ψευδής
Αρχή_επανάληψης
Διάβασε όνομα
Αν όνομα=ομάδα1 τότε
ποντοι1<-ποντοι1+1
αλλιώς
ποντοι<- ποντοι2+1
Τέλος_αν
Αν σετ<>5 τότε
Αν ποντοι1>=25 και ποντοι1-ποντοι2>=2 τότε
νικες1<-νικες1+1
σημαια<-αληθής
σετ<-σετ+1
αλλιώς_αν ποντοι2>=25 και ποντοι2-ποντοι1>=2 τότε
νικες2<νικες2+1
σημαια<-αληθής
σετ<-σετ + 1
Τέλος_αν
αλλιώς
Αν ποντοι1>=15 και ποντοι1-ποντοι2>=2 τότε
νικες1<-νικες1+1
σημαια<-αληθής
σετ<-σετ+1
αλλιώς_αν ποντοι2>=15 και ποντοι2-ποντοι1>=2 τότε
νικες2<νικες2+1
σημαια<-αληθής
σετ<-σετ + 1
Τέλος_αν
Τέλος_αν
Μέχρις_ότου σημαια=αληθής
Κάλεσε Καταχώρηση(σετ,ποντοι1,ποντοι2,σκορ)
Τέλος_επανάληψης
Γράψε ομάδα1,'-'ομάδα2
Για ι από 1 μέχρι 5
Γράψε 'σετ',ι,':' Σκορ[ι,1],Σκορ[ι,2]
Τέλος_επανάληψης
Αν νίκες1>νίκες2 τότε
ον<-ομαδα1
αλλιώς
ον<-ομάδα2
Τέλος_αν
Γράψε 'νικήτρια ομάδα:', ον
--------------
Διαδικασία καταχώρηση(ι,πον1,πον2,Α)
Μεταβλητές
Ακέραιες:ι,πον1,πον2,Α[5,2]
Αρχή
Α[ι,1]<-πον1
Α[ι,2]<-πον2
Τέλος_διαδικασίας