Text this: TURBO PASCAL με παραδείγματα=