Υλοποίηση σε Pascal