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

with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
no:integer;
no2:integer:=0;
begin
for no in 1..4 loop
  no2:=no2+1;
  put(toDay,no); put(" "); put(no2); new_line;
  end loop;
end xyz123;