function Multiply (A, B : Number) return Number is
begin
   return A * B;
end Multiply;