Логарифм

Логарифм

function log(x,a:fload):fload;
begin
textcolor(12);
log:=0;
if x<=0
then
writeln('Неверно введено число "x"!')
else
if (a<=0)or(a=1)
then
writeln('Неверно введено основание!')
else
log:=ln(x)/ln(a);
textcolor(15);
end;