Program Example21; { Program to demonstrate the log10 function. } Uses math; begin Writeln(Log10(10):8:4); Writeln(Log10(100):8:4); Writeln(Log10(1000):8:4); Writeln(Log10(1):8:4); Writeln(Log10(0.1):8:4); Writeln(Log10(0.01):8:4); Writeln(Log10(0.001):8:4); end.