опять ошибка я хотел вывести результаты своей функции, я делаю так как привык в FPC, вызываю функцию а тут ошибка
## Код:
```
MODULE XmatemGaus0;

   IMPORT StdLog;

      TYPE
      
   STRING  = ARRAY 256 OF CHAR;   
   massiv_type  = ARRAY 4 OF REAL;
   
   PROCEDURE massiv_umnojenie(a:massiv_type; n:REAL; OUT v:massiv_type) ;
   VAR
   stroka_1:massiv_type;
   BEGIN
      stroka_1[0]:=a[0]*n;
      stroka_1[1]:=a[1]*n;
      stroka_1[2]:=a[2]*n;
      stroka_1[3]:=a[3]*n;

      v := stroka_1;
END massiv_umnojenie;

PROCEDURE Do ;
   VAR
   stroka_1:massiv_type;
   a:massiv_type;
   BEGIN
      a[0]:=1;
      a[1]:=1;
      a[2]:=1;
      a[3]:=1;
      stroka_1:=massiv_umnojenie(a,3);(*ошибка тут*)
      StdLog.Ln;
      StdLog.Real(stroka_1[0]);
      StdLog.Ln;
      StdLog.Real(stroka_1[1]);

END Do;

END XmatemGaus0.
```
