freepascal.compiler/tests/webtbs/tw0911.pp

Function Log(const b,r:real):real;
begin
  log:=ln(r)/ln(b);
end;

begin
  log(2,5);
end.