ΠΡΟΓΡΑΜΜΑ Άσκηση1
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: R
ΑΡΧΗ
  ΓΡΑΨΕ emvado(R)
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΣΥΝΑΡΤΗΣΗ emvado(r): ΠΡΑΓΜΑΤΙΚΗ
ΣΤΑΘΕΡΕΣ
  π = 3.14
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: r
ΑΡΧΗ
  ΚΑΛΕΣΕ ΙΝ(r) ! Κλήση διαδικασίας απο συνάρτηση
  emvado <- π*r^2
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

ΔΙΑΔΙΚΑΣΙΑ ΙΝ(r) 
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: r
ΑΡΧΗ
  ΓΡΑΨΕ 'Ακτίνα : '
  ΔΙΑΒΑΣΕ r
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ