## Код:
```
PROCEDURE Slice*(context: Commands.Context);
VAR
   a, b: ARRAY [*] OF LONGINT;
   i: LONGINT;
BEGIN
   a := [1, 2, 3, 4, 5, 6];
   b := a[2..4];
   FOR i := 0 TO LEN(b, 0) - 1 DO
      context.out.Int(b[i], 0); context.out.Ln;
   END;
END Slice;
```
Felix Friedrich, Jürg Gutknecht. Array-structured object types for mathematical programming
Felix Friedrich, Jürg Gutknecht, Oleksii Morozov, Patrick Hunziker. A Mathematical Programming Language Extension for Multilinear Algebra