## Код:
```
PROCEDURE Create* (): Axes;
      VAR ar: Rendaxes; a: Axes;
   BEGIN
      NEW(ar);
      ar.curveCounter := 0;
      a := ar;
      RETURN a
   END Create;
```
Rendaxes --- расширение Axes, поэтому допустимо (автоматическое) преобразование Rendaxes->Axes. Достаточно## Код:
```
PROCEDURE Create* (): Axes;
      VAR ar: Rendaxes;
   BEGIN
      NEW(ar);
      ar.curveCounter := 0;
      RETURN ar
   END Create;
```
