Пример на паскале.

## Код:
```
{$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.
```
