with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure ada_mod_rem is
  begin
    Put_Line("                            mod        rem");
    for i in -13 .. 13 loop
      Put(i);
      Put(" op 5 => ");
      Put(i mod 5);
      Put(i rem 5);
      New_Line;
    end loop;
  end ada_mod_rem;