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;