πρόγραμμα panellhnies
μεταβλητές
ακέραιες:kod[500],i,pl,nos[500],kost[10],synolo,kk
χαρακτήρες:th[500]
πραγματικές: mo
αρχή
αρχή_επανάληψης
γράψε 'dose plithos asthenon'
διάβασε pl
μέχρις_ότου pl<=500
για i από 1 μέχρι pl
αρχή_επανάληψης
γράψε'dose imeres nosileias astheni no ',i
διάβασε nos[i]
μέχρις_ότου nos[i]>=1
αρχή_επανάληψης
γράψε 'dose kodiko asfalistikou tameiou astheni no ',i
διάβασε kod[i]
μέχρις_ότου (kod[i]>0) και (kod[i]<=10)
αρχή_επανάληψης
γράψε 'dose thesi nosileias astheni no ',i
διάβασε th[i]
μέχρις_ότου (th[i]='a') ή (th[i]='b') ή (th[i]='c')
mo <-- mo+nos[i]/pl
αν th[i]='a' τότε
kk <-- nos[i]*90
αλλιώς_αν th[i]='b' τότε
kk <-- nos[i]*90
αλλιώς_αν th[i]='c' τότε
kk <-- nos[i]*60
τέλος_αν
γράψε 'o ',i,'os asthenhs plhrose ',kk,' euro'
kost[kod[i]] <-- kost[kod[i]]+kk
γράψε'------------------------------------------'
τέλος_επανάληψης
kk <-- 0
για i από 1 μέχρι 10
γράψε 'to kostos gia to tameio no ',i,' itan ',kost[i]
synolo <-- kost[i]+synolo
τέλος_επανάληψης
γράψε ' mesos oros imeron paramonis ton asthenon ',mo
γράψε 'oi sinolikes ofeiles einai', synolo
τέλος_προγράμματος