ΠΡΟΓΡΑΜΜΑ ΕΙΣΠ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i, ΕΙΣ[12], ΑΘΡ
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 12
ΔΙΑΒΑΣΕ ΕΙΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΘΡ <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 12
ΑΘΡ <-- ΑΘΡ + ΕΙΣ
ΑΝ i MOD 3 = 0 ΤΟΤΕ
ΓΡΑΨΕ 'ΕΙΣ ',i/3, ' ΤΡΙΜΗΝΟΥ = ',ΑΘΡ
ΑΘΡ <-- 0
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ