Α7_40.psc

ΠΡΟΓΡΑΜΜΑ Α7_40
ΣΤΑΘΕΡΕΣ
  ΖΕΓΠΣ = 120
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΖΕΥΓ, ΣΥΠΑΤΣ
ΑΡΧΗ
  ΔΙΑΒΑΣΕ ΖΕΥΓ
  ΑΝ ΖΕΥΓ < 10 ΤΟΤΕ
    ΣΥΠΑΤΣ <-- ΖΕΓΠΣ * ΖΕΥΓ - ΖΕΓΠΣ
  ΑΛΛΙΩΣ_ΑΝ ΖΕΥΓ >= 10 ΚΑΙ ΖΕΥΓ <= 18 ΤΟΤΕ
    ΣΥΠΑΤΣ <-- ΖΕΓΠΣ * ΖΕΥΓ - (2*ΖΕΓΠΣ)
  ΑΛΛΙΩΣ_ΑΝ ΖΕΥΓ > 18 ΤΟΤΕ
    ΣΥΠΑΤΣ <-- ΖΕΓΠΣ * ΖΕΥΓ - (3*ΖΕΓΠΣ)
  ΤΕΛΟΣ_ΑΝ
  ΓΡΑΨΕ ΣΥΠΑΤΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ