#pas
procedure THIMath._work_doOperation35;{round}
var
  op1:real;
begin
  op1 := ReadReal(_Data,_data_Op1,_prop_Op1);
  Res := ReadReal(_Data,_data_Op2,_prop_Op2);
  _Err := Res=0;
  if _Err then begin
    Res:=Def;
    _hi_OnEvent(_event_onError)
   end
  else begin
//*********************************
    Res := round(op1/Res)*Res;
//*********************************
    if _prop_ResultType = 0 then
    _hi_OnEvent(_event_onResult,integer(Round(Res)))
    else _hi_OnEvent(_event_onResult,Res)
  end
end;