funcion

[ecfisa]

Hola.

Ah... había interpretado que buscabas algo como esto,

Código Delphi [-]
function FirstAndLast(num: Integer): TPoint;
begin
  Result.X := num;
  while Result.X >= 10 do
    Result.X := Result.X div 10;
  Result.Y := num mod 10;
end;

pero con muy pocos cambios se puede obtener el resultado como un entero:

Código Delphi [-]
function FirstAndLast(num: Integer): Integer;
begin
  Result := num;
  while Result >= 10 do
    Result := Result div 10;
  Result := num mod 10 + Result * 10;
end;

Saludos