with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Zero is
   X : Integer;
begin
   for I in 1 .. 5 loop
      Get (X);
      if X = 0 then
         Put_Line (Integer'Image (I));
      end if;
   end loop;
end Zero;