ΠΡΟΓΡΑΜΜΑ anakiklosi
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i,j,a[1000,3],gial,aloum,hart,k
αρχή
γράψε 'dose aritmho sholeion pou simeteixan'
διάβασε k
για i από 1 μέχρι k
για j από 1 μέχρι 3
γράψε 'sxoleio ',i,'o'
αν j=1 τότε
γράψε 'dose posotita gialiou se kgr'
αλλιώς_αν j=2 τότε
γράψε 'dose posotita hartiou se kgr'
αλλιώς
γράψε 'dose posotita alouminiou se kgr'
τέλος_αν
διάβασε a[i,j]
gial <-- gial + a[i,1]
hart <-- hart + a[i,2]
aloum <-- aloum + a[i,3]
τέλος_επανάληψης
τέλος_επανάληψης
αν hart<1000 τότε
γράψε 'sigharitiria'
αλλιώς_αν ((hart>=1000) και (hart<2000)) τότε
γράψε 'dinete epenos'
αλλιώς
γράψε 'dinetai brabeio'
τέλος_αν
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ