with Text_Io;                                           

function  Ohm (Volt, Amp : Float) return Float  is       

   Result : Float := 0.0;                           

begin                                               

   Result := Volt / Amp;                            

   return Result;                                       

exception                                              

   when Constraint_Error =>                              

      Text_Io.Put_Line("Divide by Zero");                

      raise;            

end Ohm;