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;