modular_mod_arthimetic.adb.npp

This contains the following topics and more ADA versus C and Cplus plus Ada_training ADA 2005 for

with Text_IO; use Text_IO;
with Ada.Integer_Text_IO;use Ada.Integer_Text_IO;
with Ada.float_Text_IO;use Ada.float_Text_IO;
procedure modular_mod_arthimetic is
   type byte is mod 256;
   count : byte := 255;
begin
   count := count + 1;
   New_Line;
  put(byte'image(count));
  end modular_mod_arthimetic;