## Код:
```
MODULE XmatemGaus0;

   IMPORT StdLog;

      TYPE
      
   STRING  = ARRAY 256 OF CHAR;   
   massiv_type  = ARRAY 4 OF REAL;
   
   PROCEDURE massiv_umnojenie(a:massiv_type; n:REAL) : 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;

      RETURN:=stroka_1;
end;
   
   (*....*)

END XmatemGaus0.
```
