function minhreal: hreal;
var
  n: integer;
  r: hreal;
begin { minhreal }
  with r do begin
    si:=1;
    ex:=-exmax;
    for n:=0 to hdim-1 do ma[n]:=0;
    ma[hdim]:=1; 
  end;
  minhreal:=r;
end { minhreal };

