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.

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;

END XmatemGaus0.

{$mode objfpc}

PROGRAM main;

TYPE
  MType = ARRAY [0..4] OF INTEGER;
 
PROCEDURE MMul(A: MType; N: INTEGER; VAR V: MType);
VAR
  S: MType;
BEGIN
  S[0]:=a[0]*n;
  S[1]:=a[1]*n;
  S[2]:=a[2]*n;
  S[3]:=a[3]*n;

  V := S;
END;

VAR
  M: MType;
  A: MType;

BEGIN
  A[0]:= 3;
  A[1]:= 4;
  A[2]:= 9;
  A[3]:= 11;
  MMul(A, 5, M);
  WriteLn(M[0]);
  WriteLn(M[1]);
  WriteLn(M[2]);
  WriteLn(M[3]);
END.

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.

MODULE XmatemGaus0;

   IMPORT StdLog;

      TYPE
     
   STRING  = ARRAY 256 OF CHAR;   
   massiv_type  = ARRAY 4 OF REAL;

   VAR
   stroka_1:massiv_type;
   a:massiv_type;
   
   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;

   BEGIN
      a[0]:=1;
      a[1]:=1;
      a[2]:=1;
      a[3]:=1;
      massiv_umnojenie(a,3, stroka_1);
      StdLog.Ln;
      StdLog.Real(stroka_1[0]);
      StdLog.Ln;
      StdLog.Real(stroka_1[1]);

END XmatemGaus0.

MODULE ObxHello0;

   IMPORT StdLog;

   PROCEDURE Do*;
   BEGIN
      StdLog.String("Hello World"); StdLog.Ln  (* вывод в рабочий журнал (Log) цепочки литер и 0DX (переход на новую строку) *)
   END Do;

END ObxHello0.