ΠΡΟΓΡΑΜΜΑ ΑΠΟΛΥΤΗ_ΤΙΜΗ
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Χ,Α
ΛΟΓΙΚΕΣ: ΕΠ
ΑΡΧΗ
ΕΠ <-- ΨΕΥΔΗΣ
ΟΣΟ ΕΠ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'ΔΩΣΕ ΤΟΝ ΑΡΙΘΜΟ'
ΔΙΑΒΑΣΕ Χ
ΑΝ Χ>0 ΤΟΤΕ
ΓΡΑΨΕ 'Η ΑΠΟΛΥΤΗ ΤΙΜΗ ΤΟΥ ΑΡΙΘΜΟΥ ΕΙΝΑΙ',Χ
ΤΕΛΟΣ_ΑΝ
ΑΝ Χ= -0 ΤΟΤΕ
ΓΡΑΨΕ 'Η ΑΠΟΛΥΤΗ ΤΙΜΗ ΤΟΥ ΑΡΙΘΜΟΥ ΕΙΝΑΙ 0'
ΤΕΛΟΣ_ΑΝ
ΑΝ Χ<0 ΤΟΤΕ
Χ <-- Χ*(-1)
ΓΡΑΨΕ 'Η ΑΠΟΛΥΤΗ ΤΙΜΗ ΤΟΥ ΑΡΙΘΜΟΥ ΕΙΝΑΙ',Χ
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'ΘΕΛΕΤΕ ΝΕΟ ΥΠΟΛΟΓΙΣΜΟ ? 1 ΓΙΑ ΟΧΙ, ΟΠΟΙΟΝΔΗΠΟΤΕ ΑΛΛΟΝ ΑΡΙΘΜΟ ΓΙΑ ΝΑΙ'
ΔΙΑΒΑΣΕ Α
ΑΝ Α=1 ΤΟΤΕ
ΕΠ <-- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΑΠΟΛΥΤΗ_ΤΙΜΗ