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 := (15, 28, 9, 14, 33, 20, 18, 11, 21, 6);
   Count, I : INTEGER := 0;

   FUNCTION Process_Value(N : INTEGER) RETURN BOOLEAN IS
      X, Y : INTEGER := 1;
   BEGIN
      WHILE X * Y < N LOOP
         IF X * Y = N THEN
            RETURN TRUE;
         END IF;
         X := X + 1;
         Y := X + 1;
      END LOOP;
      RETURN FALSE;
   END Process_Value;

BEGIN
   FOR I IN 1 .. 10 LOOP
      IF Process_Value(A(I)) THEN
         Count := Count + 1;
      END IF;
   END LOOP;

   Put("Result: "); Put(Count); New_Line;
END Mystery;