language: Ada (gnat-4.3.2)
date: 109 days 17 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
      if Input = 42 then
         exit;
      else 
         Put (Input);  
         New_Line;
      end if;
   end loop;
end;