with Ada.Text_IO; use Ada.Text_IO;

procedure Add.adb is

X : integer := 0;
Y : integer := 1;

begin
 

   for I in 1..3 loop
      for J in 1..I loop
         X := X + Y + J;
      end loop;
      Y := X;
   end loop;

return X;

end Add.adb;