В паскале логарифмов как таковых нет, поэтому нужно выражать через натуральный, в данном случае будет что-то похожее на: y:=1-(ln(x)/ln(a)); А если подключить модуль Mathб то вроде мжно использовать функцию log2, тогда будет что-то вроде: y:=1-log2(x);