Процедуры, функции

function ax(AA, XX: extended): extended;
var
  i, j: integer;
  r: extended;
begin
  i := 1;
  j := 10;
  result := 0;
  while i < 10 do
  begin
    r := exp(i * ln(AA)) * exp(j * ln(XX));
    inc(i);
    dec(j);
  end;
  result := sqr(r);
end;
 
function by(BB, YY: extended): extended;
var
  i, j: integer;
  r: extended;
begin
  i := 1;
  j := 10;
  result := 0;
  while i < 10 do
  begin
    r := exp(i * ln(BB)) * exp(j * ln(YY));
    inc(i);
    dec(j);
  end;
  result := sqr(r);
end;
 
function xyz(XX, YY, ZZ: extended): extended;
var
  i, j: integer;
  r: extended;
begin
  i := 1;
  j := 10;
  result := 0;
  while i < 10 do
  begin
    r := exp(i * ln(YY)) * exp(j * ln(XX+ZZ));
    inc(i);
    dec(j);
  end;
  result := sqr(r);
end;
 
Procedure U(a, x, b, y, z: extended);
var UU:extended;
begin
  UU:= (ax(a,x)-by(b,y))/xyz(x,y,z);
end;