with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;

-- Affichage matrice identité
procedure Ex03b is
   N : Natural;
begin
   Put("Veuillez rentrer un nombre >= 2 : ");
   Get(N);

   -- Algo 1
   for I in 1 .. N loop
      for J in 1 .. N - I loop
         Put(' ');
      end loop;

      for J in N - I + 1 .. N + I - 1 loop
         Put('*');
      end loop;
      New_Line;
   end loop;

   New_Line;
   -----------------------------------------------------------------

   -- Algo 2
   for I in 1 .. N loop
      for J in 1 .. N + I - 1 loop
         if J > N - I and J < N + I then
            Put('*');
         else
            Put(' ');
         end if;
      end loop;
      New_Line;
   end loop;
end;