with Ada.Integer_Text_IO;

with Ada.Text_IO;

procedure Multiplication_Tables is

  use Ada.Integer_Text_IO;

  use Ada.Text_IO;

begin

  Put_Line("Multiplication Tables");

  Put_Line("_____________________");

  New_Line;

  for i in 1..10 loop

    for j in 1..10 loop 

      Put(i); Put(" * "); Put(j); Put(" = "); Put(i*j); New_Line;

    end loop;

    Put_Line("-----");

  end loop;

end Multiplication_Tables;