ΠΡΟΓΡΑΜΜΑ ΠΡΟΒ_ΔΙΑΜΕΣΟΣ ΜΕΤΑΒΛΗΤΕΣ ΠΡΑΓΜΑΤΙΚΕΣ: Α, Β, Γ, ΔΙΑΜΕΣΟΣ ΑΡΧΗ ΓΡΑΨΕ 'Δώσε 3 αριθμούς :' ΔΙΑΒΑΣΕ Α, Β, Γ ΔΙΑΜΕΣΟΣ <-- Α !Αν α < β < γ => (α < β ΚΑΙ β < γ) => ( (β-α) > 0 ΚΑΙ (γ-β) > 0 ) => (β-α)*(γ-β) > 0 => (α-β)*(γ-β) < 0 !Ομοίως αν γ < β < α => (α-β)*(γ-β) < 0 ΑΝ (Α-Β)*(Γ-Β) < 0 ΤΟΤΕ ΔΙΑΜΕΣΟΣ <-- Β ΤΕΛΟΣ_ΑΝ !Ομοίως αν β < γ < α ή α < γ < β => (α-γ)*(β-γ) < 0 ΑΝ (Α-Γ)*(Β-Γ) < 0 ΤΟΤΕ ΔΙΑΜΕΣΟΣ <-- Γ ΤΕΛΟΣ_ΑΝ !Για κάθε άλλη περίπτωση έχουμε επιλέξει το Α από την αρχή ΓΡΑΨΕ 'Διάμεσος : ', ΔΙΑΜΕΣΟΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ