! ΤΟ ΠΡΟΓΓΡΑΜΜΑ ΑΥΤΟ ΥΠΟΛΟΓΙΖΕΙ ΤΟ ΜΕΣΟ ΟΡΟ ΜΑΘΗΜΑΤΩΝ ΑΛΛΑ
! ΔΕΝ ΣΥΝΥΠΟΛΟΓΙΖΕΙ ΤΟ ΜΑΘΗΜΑ ΤΗΣ ΓΥΜΝΑΣΤΙΚΗΣ
! ΚΑΙ Η ΑΛΓΕΒΡΑ ΚΑΙ Η ΓΕΩΜΕΤΡΙΑ ΣΥΝΥΠΟΛΟΓΙΖΟΝΤΑΙ ΣΑΝ
! ΕΝΑ ΜΑΘΗΜΑ: ΤΑ ΜΑΘΗΜΑΤΙΚΑ
ΠΡΟΓΡΑΜΜΑ ΜΕΣΟΣ_ΟΡΟΣ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ι,Π,ΜΜ
ΠΡΑΓΜΑΤΙΚΕΣ:ΜΟ,Β,ΑΘ,ΑΘ_ΜΑΘ
ΧΑΡΑΚΤΗΡΕΣ:Μ
ΑΡΧΗ
ΜΜ <-- 0
ΑΘ_ΜΑΘ <-- 0
ΑΘ <-- 0
ΓΡΑΨΕ_ 'ΔΩΣΕ ΠΛΗΘΟΣ ΜΑΘΗΜΑΤΩΝ: '
ΔΙΑΒΑΣΕ Π
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Π
ΓΡΑΨΕ_ 'ΔΩΣΕ ΜΑΘΗΜΑ: '
ΔΙΑΒΑΣΕ Μ
ΓΡΑΨΕ_ 'ΔΩΣΕ ΒΑΘΜΟ: '
ΔΙΑΒΑΣΕ Β
ΑΝ ((Μ='ΑΛΓΕΒΡΑ') Ή (Μ='ΓΕΩΜΕΤΡΙΑ')) ΤΟΤΕ
ΑΘ_ΜΑΘ <-- ΑΘ_ΜΑΘ+Β
ΜΜ <-- ΜΜ+1
ΤΕΛΟΣ_ΑΝ
ΑΝ ΜΜ=2 ΤΟΤΕ
Μ <-- 'ΜΑΘΗΜΑΤΙΚΑ'
Β <-- ΑΘ_ΜΑΘ/2
ΜΜ <-- 0
ΤΕΛΟΣ_ΑΝ
ΑΝ ((Μ<>'ΓΥΜΝΑΣΤΙΚΗ') ΚΑΙ (Μ<>'ΑΛΓΕΒΡΑ') ΚΑΙ (Μ<>'ΓΕΩΜΕΤΡΙΑ')) ΤΟΤΕ
ΑΘ <-- ΑΘ+Β
ΓΡΑΨΕ Μ,' ',Β
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΟ <-- ΑΘ/(Π-2)
ΓΡΑΨΕ 'ΜΕΣΟΣ ΟΡΟΣ = ',ΜΟ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ