[timyrbal]

вот нормальный код:


var
a,b:real;
k:integer;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
for k:=1 to 8 do
begin
chart1.SeriesList[0].AddXY(k,exp((1/3)*ln(2*exp(0.5*ln((ln(abs(k-a)))/(a+b*k))))));
end;
end;