Αλγόριθμος Εταιρεία
!Α,Β
Για ι απο 1 μεχρι 100
Διάβασε ΟΝ[ι]
Για κ απο 1 μέχρι 6
Διάβασε ΩΡΕΣ[ι,κ]
Όσο ΩΡΕΣ[ι,κ] >12 'Η <0 επανάλαβε
Εμφάνισε "Λάθος - Επανάληψη εισαγωγής"
Διάβασε ΩΡΕΣ[ι,κ]
Τ_Ε
Τ_Ε
Τ_Ε
!Γ,Δ
Εμφάνισε "Όνομα Εργαζομένου Αποδοχές"
Εμφάνισε "-------------------- ----------"
ΠΟΣΟ_1<-0 ! Συνολικές πληρωμές κανονικού ωραρίου
ΠΟΣΟ_2<-0 ! Συνολικές πληρωμές υπερωριών
Για ι από 1 μέχρι 100
ΑΠΟΔΟΧΕΣ[ι]<-0
Για κ από 1 μέχρι 6
Αν ΩΡΕΣ[ι,κ] <=8 τότε
ΑΠΟΔΟΧΕΣ[ι]<-ΑΠΟΔΟΧΕΣ[ι]+ΩΡΕΣ[ι,κ]*7
ΠΟΣΟ_1<-ΠΟΣΟ_1+ΑΠΟΔΟΧΕΣ[ι]
Αλλιώς_αν ΩΡΕΣ[ι,κ] >8 τότε
ΑΠΟΔΟΧΕΣ[ι]<-ΑΠΟΔΟΧΕΣ[ι]+(56+10*(ΩΡΕΣ[ι,κ]-8))
ΠΟΣΟ_1<-ΠΟΣΟ_1+56
ΠΟΣΟ_2<-ΠΟΣΟ_2+(ΑΠΟΔΟΧΕΣ[ι]-56)
Τέλος_αν
Τ_Ε
Εμφάνισε ΟΝ[ι], " ", ΑΠΟΔΟΧΕΣ[ι]
Τ_Ε
Εμφάνισε "Συν. Ποσό για κανονικό ωράριο: ", ΠΟΣΟ_1
Εμφάνισε "Συν. Ποσό για υπερωρίες: ", ΠΟΣΟ_2
!Ε
Εμφάνισε "Λίστα απόντων"
Εμφάνισε "--------------"
Για ι από 1 μέχρι 100
ΗΜΕΡΕΣ<-0
Για κ από 1 μέχρι 6
Αν ΩΡΕΣ[ι,κ]=0 τότε
ΗΜΕΡΕΣ<-ΗΜΕΡΕΣ+1
Τέλος_αν
Τ_Ε
Αν ΗΜΕΡΕΣ>=2 τότε
Εμφάνισε ΟΝ[ι]
Τέλος_αν
Τ_Ε
Τέλος Εταιρεία