13 lines
240 B
Text
13 lines
240 B
Text
|
with Ada.Text_IO; use Ada.Text_IO;
|
||
|
|
|
||
|
|
procedure Learn is
|
||
|
|
|
||
|
|
subtype Alphabet is Character range 'A' .. 'Z';
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
Put_Line ("Learning Ada from " & Alphabet'First & " to " & Alphabet'Last);
|
||
|
|
|
||
|
|
end Learn;
|
||
|
|
|
||
|
|
-- From https://learn.adacore.com/
|