ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 200
	sales<-0
	ΓΙΑ k ΑΠΟ 1 μεχρι 20
		sales<-sales + (ΠΩΛ[i,k]*ΤΙΜ[k])
	ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
	Εκτύπωσε 'Πωλητής: ', ΟΝ[i] ,', Πωλήσεις: ', sales' €' !ΕΔΩ ΠΡΟΣΕΧΕ ΠΩΣ ΘΑ ΓΡΑΨΕΙΣ ΤΑ ΚΟΜΜΑΤΑ ΚΑΙ ΤΑ ΕΙΣΑΓΩΓΙΚΑ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ


ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
	curr<-0
	ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ 200
		curr<- curr + (ΠΩΛ[k,i]*ΤΙΜ[i])
	ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
	total[i] <- curr
	original[i] <- curr
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

flag<- ψευδης
ΟΣΟ FLAG<-ψευδής
flag<-ΑΛΗΘΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 19
	ΑΝ total[i]<total[i+1]
		flag<-ψευδής
		b<_total[i]
		total[i]<-total[i+1]
		total[i+1]<-b
	ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΕΚΤΥΠΩΣΕ 'Προϊόντα με τις μεγαλύτερες πωλήσεις:'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
	curr <- total[i]
	k<- 1
	ΟΣΟ original[k]<>total[i]
		k<- k+1
	ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
	ΕΚΤΠΥΩΣΕ ΕΠΩΝ[k]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ

i,k,sales,curr,b ακεραιες
total[200], original[200]
flag λογικη