Εισαγωγή με τη γλώσσα Pascal / AΑλεβίζος, Θ