Для КП:## Код:
```
TYPE
      cairo_path_data_type_t = INTEGER;
      
      cairo_path_data_t = EXTENSIBLE RECORD
      END;
      
      header = RECORD (cairo_path_data_t)
         type : cairo_path_data_type_t;
         length : INTEGER;
      END;
      
      point = RECORD (cairo_path_data_t)
         x, y : REAL
      END;
```
