uses System.Math;

var
  Number, LogValue: Double;
begin
  Number := 1000;
  LogValue := Log10(Number);
  //LogValue is 3.0

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