Untitled

WITH Ada.Text_IO; USE Ada.Text_IO;
WITH Ada.Integer_Text_IO; USE Ada.Integer_Text_IO;

PROCEDURE Mystery IS
   TYPE Int_Array IS ARRAY (1..10) OF INTEGER;
   A : Int_Array := (10, 3, 7, 2, 5, 8, 1, 9, 4, 6);
   Temp, I, J : INTEGER;
BEGIN
   FOR I IN 1 .. 10 LOOP
      FOR J IN REVERSE I+1 .. 10 LOOP
         IF A(J) < A(J-1) THEN
            Temp := A(J);
            A(J) := A(J-1);
            A(J-1) := Temp;
         END IF;
      END LOOP;
   END LOOP;

   FOR I IN 1 .. 10 LOOP
      Put(A(I)); Put(" ");
   END LOOP;
   New_Line;
END Mystery;