var
  Numbers: TArray<Integer>;
  First2, Last3: TArray<Integer>;
  Number: Integer;
begin
  Numbers := [2, 3, 5, 7, 11];

  First2 := Copy(Numbers, 0, 2);
  //first2 is [2, 3]

  Last3 := Copy(Numbers, 2,
    Length(Numbers) - 2);
  //last3 is [5, 7, 11]

  for Number in First2 do
    Write(Number, ' ');
  WriteLn;

  for Number in Last3 do
    Write(Number, ' ');
  WriteLn;
end.