функция

[Vitalya_1993]

procedure TForm1.Button1Click(Sender: TObject);
var
c,p,a,x:real;
begin
a:=23*cos(x);
p:=8-abs(lg(x));
x:=15;
c=3sqrt(3*p/2exp(2ln(a)+2p(p+1)(p+2)/ln(2)));
label1.caption:=FloatToStr(с);

end.
ругается где десятичный логарифм,log10 тоже использовал, тоже ругается!!
В чем ошибка(не судите строго новичок в программировании, возможны глупые ошибки)

[Vard]

х у вас чему равен? когда передается в функцию lg() ?
вы его не проинициализировали, скорее всего по умолчанию он инициализируется как 0, а логарифм принимает аргументы (0; +бесконечность) если память не изменяет.

проинициализируйте x (например перенесите ваше x = 15, перед вызовом косинуса)