Pascal/Turbo Pascal - logaritmo base 10 de turbo pascal

como puedo poner el logaritmo (log) en turbo pascal 7??
q no sea ln por que ese si se puede pero log no como le hago xq si escribe log asi nada mas no lo da
x favor diganme gracias

en Turbo Pacal no existe la funcion para calcular el Log base 10 pero se puede usar la funcion ln para emularla.

la formula seria

Log10 (f) = ln ( f ) / ln ( 10)

es decir el log base 10 de un numero f es igual al logaritmo natural de f entre el logaritmo natural de 10

asi puedes crear tu propia funcion para calcular el lgo10

function Log10( x: real):real
begin
Log10 : = ln (x) / ln (10);
end;