dug1

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Dug1 is
Faktor1: Integer;
Faktor2: Integer;

begin
Get(Faktor1);
Get(Faktor2);

for I in 1..Faktor1 loop
Put (I, Width=>4);

for A in 2..Faktor2 loop
Put(I*A, Width=>4);

end loop;
New_Line;
end loop;

end Dug1;