RosettaCodeData/Task/Function-definition/ALGOL-M/function-definition.alg

INTEGER FUNCTION MULTIPLY( A, B );
INTEGER A, B;
BEGIN
    MULTIPLY := A * B;
END;