var
  Numbers, Tripled: TArray<Integer>;
  I: Integer;
begin
  Numbers := [1, 2, 3, 4, 5];

  //no built-in map: transform in a loop
  SetLength(Tripled, Length(Numbers));
  for I := 0 to High(Numbers) do
    Tripled[I] := Numbers[I] * 3;
  //tripled is [3, 6, 9, 12, 15]

  for I in Tripled do
    Write(I, ' ');
  WriteLn;
end.