ΠΡΟΓΡΑΜΜΑ Ήρωνας
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: τ, α, β, γ, εμβαδόν
ΑΡΧΗ
  ΓΡΑΨΕ 'Δώσε τις πλευρές του τριγώνου'
  ΔΙΑΒΑΣΕ α, β, γ
  ΑΝ α <= 0 Η β <= 0 Η γ <= 0 ΤΟΤΕ
    ΓΡΑΨΕ 'οι πλευρές του τριγώνου πρέπει να είναι αριθμοί θετικοί'
  ΑΛΛΙΩΣ
    ΑΝ (α + β) > γ ΚΑΙ (α + γ) > β ΚΑΙ (β + γ) > α ΤΟΤΕ
      τ <- (α + β + γ)/2
      εμβαδόν <- Τ_Ρ(τ*(τ - α)*(τ - β)*(τ - γ))
      ΓΡΑΨΕ 'το εμβαδον ειναι ', εμβαδόν
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'λαθος δεδομένα'
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ