pascal - тип Integer

program max_types;

var
  si: shortint;
   i: integer;
  li: longint;

begin
  si := 127;
   i := 2147483647;
  li := 2147483647; 
  
  writeln('short int max        =  ', si);
  writeln('short int max+1      =  ', si+1);
  si := si+1;
  writeln('short int max+1 (si) = ', si+1);
  
  writeln('integer max          =  ', i);
  writeln('integer max+1        = ', i+1);

  writeln('long int max         =  ', li);
  writeln('long int max+1       = ', li+1); 
  
end.

Границы между положительными и отрицательными числами

program max_types2;
var
   n1, m1: integer;
begin
  n1 := 2147483647;
  m1 := -2147483648;
  writeln('n1 - 1 = ', n1 - 1, '      n1 + 1 = ', n1 + 1, '      n1 + 2 = ', n1 + 2);
  writeln('m1 - 1 = ', m1 - 1, '      m1 + 1 = ', m1 + 1, '      m1 - 2 = ', m1 - 2);
end.