ΠΡΟΓΡΑΜΜΑ α_12_1
     ΜΕΤΑΒΛΗΤΕΣ
       ΠΡΑΓΜΑΤΙΚΕΣ: α,β,γ,μεγ, γινόμενο
     ΑΡΧΗ
       ! Το ακόλουθο πρόγραμμα διαβάζει τρεις πραγματικούς αριθμούς στις μεταβλητές α,β,γ και μετά υπολογίζει και εμφανίζει τη μεγαλύτερη τιμή ανάμεσά τους.  Ακόμη, υπολογίζει το γινόμενο των τριών αριθμών και το εμφανίζει με κατάλληλο μήνυμα.   Να γράψετε ισοδύναμο πρόγραμμα, όπου οι εντολές στις γραμμές 7-13,  δεν θα υλοποιούνται από το κυρίως πρόγραμμα, αλλά από Διαδικασία
       ΓΡΑΨΕ 'Δώσε τρεις τιμές'
       ΔΙΑΒΑΣΕ α,β,γ
       ΑΝ α>=β και α>=γ ΤΟΤΕ
         μεγ <-- α
       ΑΛΛΙΩΣ_ΑΝ β>=α και β>=γ ΤΟΤΕ
         μεγ <-- β
       ΑΛΛΙΩΣ_ΑΝ γ>=α και γ>=β ΤΟΤΕ
          μεγ <-- γ
       ΤΕΛΟΣ_ΑΝ
       ΓΡΑΨΕ 'Ο μεγαλύτερος αριθμός ισούται με: ', μεγ
        γινόμενο <-- α*β*γ
        ΓΡΑΨΕ 'Το γινόμενο ισούται με: ', γινόμενο
    ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ