9 lukio

Αλγόριθμος Μ
Εμφάνισε "Δωσε 3 αριθους"
Διάβασε α, β, γ
δ ← β^2 - 4*α*γ
Αν δ > 0 τότε
  Εμφάνισε "η εξισωση λυνεται"
  χ1 ← (-β + Τ_Ρ(δ))/(2*α)
  χ2 ← (-β - δ^(1/2))/(2*α)
  Εμφάνισε "Οι ριζες της εξισωσης ειναι""και", χ2, "η αλλη"
αλλιώς_αν δ = 0 τότε
  χ ← -β/(2*α)
  Εμφάνισε
αλλιώς
Τέλος_αν
Τέλος Μ