13 lines
No EOL
240 B
Text
13 lines
No EOL
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/ |