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..99; Input : Small; begin loop Get(Input); if Input = 42 then exit; else Put (Input); New_Line; end if; end loop; end;
1 2 10 42 11
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!
Home
API
Language
FAQ
Credits
desktop
mobile
Terms of Service
Privacy Policy
GDPR Info
Popular languages:
Bash
Pascal
C
Perl
C#
PHP
C++
Python
C++14
Python3
Haskell
Ruby
Java
SQLite
Objective-C
Swift
VB.net
List of all supported programming languages