RosettaCodeData/Task/Literals-Integer/Ada/literals-integer.ada
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

9 lines
186 B
Ada

with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
procedure Test_Literals is
begin
Put (16#2D7#);
Put (10#727#);
Put (8#1_327#);
Put (2#10_1101_0111#);
end Test_Literals;