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

procedure Ex03d is
   N        : Natural;
   X        : Natural;
   Tmp      : Natural;
   Lastview : Natural;
begin
   Get(N);
   Get(X);
   
   --- Début algo ---
   Lastview := 0;
   for I in 1..N loop
      Get(Tmp);
      if Tmp = X then
	 Lastview := I;
      end if;
   end loop;
   --- Fin   algo ---
   
   Put("La position du dernier "); Put(X, 1); Put(" est : ");
   Put(Lastview, 1);
end;