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