with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;
procedure Ex02 is
--- Début algo ---
procedure Triangle(N : in Natural) is
begin
for I in 1..N loop
for J in 1..I loop
Put('*');
end loop;
New_Line;
end loop;
for I in 1 .. N - 1 loop
for J in 1 .. N - I loop
Put('*');
end loop;
New_Line;
end loop;
end Triangle;
--- Fin algo ---
N : Natural;
begin
Get(N);
Triangle(N);
end;