ΠΡΟΓΡΑΜΜΑ Πίνακας_Τιμών
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: α, β, αποτέλεσμα
ΑΡΧΗ
α <-- 2
β <-- 13
αποτέλεσμα <-- Υπολογισμοί(α, β)
ΓΡΑΨΕ αποτέλεσμα
α <-- 5 * α + αποτέλεσμα
β <-- Α_Τ(αποτέλεσμα - 20)
αποτέλεσμα <-- Υπολογισμοί(β, α) - 3
ΓΡΑΨΕ α, ' == ', β, ' == ', αποτέλεσμα
αποτέλεσμα <-- Υπολογισμοί(α, β)
ΓΡΑΨΕ αποτέλεσμα
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Πίνακας_Τιμών
! =========================================
ΣΥΝΑΡΤΗΣΗ Υπολογισμοί (x, y) :ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: x, y, π
ΑΡΧΗ
π <-- (x + y) DIV x
Υπολογισμοί <-- 2 - π
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ