program Log10;
        (* �`�@�` *)
        (* ���x�� *)
        (* �@�`�@ *)

{$APPTYPE CONSOLE}

uses SysUtils;

var
  M,N  : Integer;
  X    : Real;
  OutF : Text;

begin
  Assign(OutF,'Log10.txt');
  Rewrite(OutF);
  Write('':5);
  Write(OutF, '':5);
  for N := 0 to 9 do
    begin
      Write('  +', N/100:4:2);
      Write(OutF, '  +', N/100:4:2);
    end;
  WriteLn;
  WriteLn(OutF);
  for M := 10 to 99 do
    begin
      if M mod 10 = 0
        then begin
               WriteLn;
               WriteLn(OutF);
             end;
      Write(M/10:4:2, ' ');
      Write(OutF, M/10:4:2, ' ');
      for N := 0 to 9 do
        begin
          X := M/10+N/100;
          Write(Ln(X)/Ln(10):7:4);
          Write(OutF, Ln(X)/Ln(10):7:4);
        end;
      WriteLn;
      WriteLn(OutF);
    end;
  Close(OutF);
  ReadLn;
end.