fork download 
  1. with Ada.Integer_Text_Io, Ada.Text_Io;
  2. use Ada.Integer_Text_Io, Ada.Text_Io;
  3.  
  4. procedure Test is
  5.    subtype Small is Integer range 0..99;
  6.    Input : Small;
  7. begin
  8.    loop
  9.       Get(Input);
  10.       if Input = 42 then
  11.          exit;
  12.       else 
  13.          Put (Input);  
  14.          New_Line;
  15.       end if;
  16.    end loop;
  17. end;
Success #stdin #stdout 0.01s 1736KB
comments (?)
stdin 
1
2
10
42
11
stdout 
          1
          2
         10
https://ideone.com/AF5wq
language:
Ada95 (gnat 8.3)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!