Πρόγραμμα ...
Κάλεσε δ1(α,β,γ,τιμή) !πραγματικές: α,β,γ,τιμή
Τελος-προγραμματος
Διαδικασία δ1(γ,β,α,τιμή) !τυπικές: γ,β,α,τιμή
Τιμή<--υπ(Χ,γ) !πραγματικές: Χ,γ
Τελος_διαδικασιας
Συνάρτηση υπ(ζ,β):λογική !τυπικές: ζ,β
Υ<--ζ-Α_Μ(β/2) !πραγματικές: β/2 ;χμμμ
Τέλος συναρτησης