Найти значение фунци Y

program primer01;
uses crt;
var a,b,x,c,y,m,m1:real;
begin
 clrscr;
  Write('Введите значение А=');
    Readln(A);
  Write('Введите значение В=');
    Readln(B);
  Write('Введите значение Х=');
    Readln(B);
  Write('Введите значение С=');
    Readln(B);
  M1:=Round(abs(exp(a-b)*Ln(x+c)));
  M:=ln(M1);
  Y:=3.58*(x*x)*M;
    Write('Значение фунции Y=',Y);
 
 
ReadLn;
End.

function power(a,b:real):real;
begin
  if a>0 then power:=exp(b*ln(a))
  else
    if a<0 then power:=exp(b*ln(abs(a)))
    else
      if b=0 then power:=1
      else power:=0
end;
 
var a,b,x,c:real;
begin
  write('a = ');readln(a);
  write('b = ');readln(b);
  write('x = ');readln(x);
  write('c = ');readln(c);
  writeln('y = ',3.85*x*x*ln(abs(a-power(b,x+c))):0:5);
  readln;
end.