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;