ΠΡΟΓΡΑΜΜΑ Άσκηση_5_4_7
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: x
ΑΡΧΗ
  ΚΑΛΕΣΕ Θετικός(x) 
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ Θετικός(x) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: x
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'x = '
    ΔΙΑΒΑΣΕ x
    ΑΝ x <= 0 ΤΟΤΕ
      ΓΡΑΨΕ 'O x πρέπει να είναι θετικός. Δώστε θετική τιμή..'
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ x > 0
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ