[dec]

Hola,

Ah... poder "corregir" a Román... ¡qué gusto!

Código Delphi [-]
function absoluto(parametro: integer): integer;
begin
  if parametro < 0 then
    parámetro := -parametro

  Result := parametro;
end;