Respuesta :

Here is a function in Delphi:

function maxvalue(numa, numb: integer): integer;
var
    biggest: integer;
begin
    if numa >= numb then
        biggest := numa;
    else
        biggest := numb;
    end;

    Return biggest; 
end;