pastebin

with Ada.Text_IO; use Ada.Text_IO;

with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

 

procedure Test is

        subtype Small is Integer range 0..999;

        Input : Small;

        loop

                Get(Input);

                if Input = 0 then

                        exit;

                else

                        Put (Input);  

                        New_Line;

                end if;

        end loop;

end;