πρόγραμμα 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 τέλος_προγράμματος