fork download
copy 
  1. with Ada.Text_Io;
  2. procedure Day is
  3.    type Day is ( Mon, Tue, Thu, Fri, Sat, Sun );
  4.    subtype Weekday is Day range Mon .. Fri;
  5.    X, Y : Weekday;
  6. begin
  7.    X := Fri;     Ada.Text_Io.Put (Day'Image(X));
  8.    Y := Day'Succ(X); Ada.Text_Io.Put (Day'Image(Y));
  9. end Day;
Runtime error #stdin #stdout 0.02s 1848KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
FRI
https://ideone.com/1FeyO
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!