uses System.Math;

var
  Number, LogBase, LogValue: Double;
begin
  Number := 512;
  LogBase := 8;

  LogValue := LogN(LogBase, Number);
  //LogValue is 3.0

  WriteLn('result is ', LogValue:0:1);
end.