ΠΡΟΓΡΑΜΜΑ ΦΥΛΑΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ:ΟΝ[10,50],ΤΜΠ
ΑΚΕΡΑΙΕΣ: Ι,Κ,Λ , ΘΕΣΗΙ , ΘΕΣΗΚ , ΜΑΧ , ΧΡ[10,50]
ΛΟΓΙΚΕΣ: ΣΗΜΑΙΑ
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 50
ΔΙΑΒΑΣΕ ΟΝ[Ι,Κ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Λ ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 50
ΓΙΑ Κ ΑΠΟ 50 ΜΕΧΡΙ Ι ΜΕ ΒΗΜΑ -1
ΑΝ ΟΝ[Λ,Κ-1]>ΟΝ[Λ,Κ] ΤΟΤΕ
ΤΜΠ <-- ΟΝ[Λ,Κ-1]
ΟΝ[Λ,Κ-1] <-- ΟΝ[Λ,Κ]
ΟΝ[Λ,Κ] <-- ΤΜΠ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΣΗΜΑΙΑ <-- ΨΕΥΔΗΣ
ΘΕΣΗΙ <-- 0
ΘΕΣΗΚ <-- 0
Ι <-- 1
Κ <-- 1
ΟΣΟ Ι<=10 ΚΑΙ ΣΗΜΑΙΑ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
ΟΣΟ Κ<=50 ΚΑΙ ΣΗΜΑΙΑ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
ΑΝ ΟΝ[Ι,Κ]='ΦΟΝΙΑΣ' ΤΟΤΕ
ΣΗΜΑΙΑ <-- ΑΛΗΘΗΣ
ΘΕΣΗΙ <-- Ι
ΘΕΣΗΚ <-- Κ
ΤΕΛΟΣ_ΑΝ
Κ <-- Κ+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Ι <-- Ι+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΑΧ <-- 0
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 50
ΔΙΑΒΑΣΕ ΧΡ[Ι,Κ]
ΑΝ ΧΡ[Ι,Κ]>ΜΑΧ ΤΟΤΕ
ΜΑΧ <-- ΧΡ[Ι,Κ]
ΘΕΣΗΙ <-- Ι
ΘΕΣΗΚ <-- Κ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Ο ΦΥΛΑΚΙΣΜΕΝΟΣ ΜΕ ΤΑ ΠΕΡΙΣΣΟΤΕΡΑ ΧΡΟΝΙΑ ΕΙΝΑΙ Ο ', ΟΝ[ΘΕΣΗΙ,ΘΕΣΗΚ], 'ΜΕ ',ΜΑΧ , 'ΧΡΟΝΙΑ ΠΑΡΑΜΟΝΗΣ'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ