Перевод функций из Pascal в С++

function h(a,b:real):real;
begin
h:=(a/(1+b*b))+(b/(1+a*a))-sqr(a-b)*(a-b);
end;

const
  n = 10;
  m = 5;
type
  intArray = array of integer;
var 
  a, b, c : intArray;
  l : integer;
 
  procedure read_array(var x : intArray; k : integer);
 var i: integer;
  begin
 setLength(x, k);
    for i := 0 to length(x) - 1 do
    begin
      write('x[',i+1,'] = ');
      readln(x[i]);
    end;
    writeln('');
  end;
  
  function min_array(x : array of integer) : integer;
    var i : integer;
  begin
    min_array := 9999;
    for i := 0 to length(x) - 1 do
    begin
      if (min_array > x[i]) then
        min_array := x[i];
    end;
    
  end;
 
  function max_array(x : array of integer) : integer;
    var i : integer;
  begin
    max_array := 0;
    for i := 0 to length(x) - 1 do
    begin
      if (max_array < x[i]) then
        max_array := x[i];
    end;
  end;  
 
begin
  // enter data to m
  writeln('Enter A');
  read_array(a, n);
  writeln('Enter B');
  read_array(b, m);
  writeln('Enter C');
  read_array(c, 30);
 
  
  if abs(min_array(a)) > 10 then
    l := min_array(b) + min_array(c)
  else
    l := 1 +  sqr(max_array(c));
 
  writeln('L = ', l);
  readln;
end.