!---------------------------------------------------------------------
!Μια εταιρεία αποθηκεύει 30 προϊόντα σε 12 αποθήκες.Ο αλγόριθμος ζητά
!τις ποσότητες κάθε είδους σε κάθε αποθήκη και να εμφανίζει:
!α)Το σύνολο ποσότητας κάθε είδους
!β)Το σύνολο ποσότητας κάθε αποθήκης
!---------------------------------------------------------------------
ΠΡΟΓΡΑΜΜΑ ΑΠΟΘΗΚΕΣ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ι,Κ
ΠΡΑΓΜΑΤΙΚΕΣ: ΣΑΠ[12],ΣΕΙΔ[30],Π[30,12]
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 30
ΣΕΙΔ[Ι] <-- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 12
ΣΑΠ[Ι] <-- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 30
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 12
ΓΡΑΨΕ 'ΔΩΣΕ ΠΟΣΟΤΗΤΑ'
ΔΙΑΒΑΣΕ Π[Ι,Κ]
ΣΕΙΔ[Ι] <-- ΣΕΙΔ[Ι]+Π[Ι,Κ]
ΣΑΠ[Κ] <-- ΣΑΠ[Κ]+Π[Ι,Κ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 30
ΓΡΑΨΕ 'ΣΥΝΟΛΟ ΕΙΔΟΥΣ',ΣΕΙΔ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 12
ΓΡΑΨΕ 'ΣΥΝΟΛΟ ΑΠΟΘΗΚΗΣ',ΣΑΠ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΑΠΟΘΗΚΕΣ