home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / pascal / pascsrc.arc / NEWINT4.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  582b  |  24 lines

  1.                                 (* Chapter 3 - Program 9 *)
  2. program New_Integer_Types;
  3.  
  4. var Index     : integer;
  5.     Big_int   : longint;
  6.     Small_int : shortint;
  7.     Pos_int   : word;
  8.  
  9. begin
  10.    Index := MaxInt;
  11.    Small_int := 127;
  12.    Pos_int := Index + 256 * Small_int;
  13.    Big_int := 1000 * MaxInt + 1234;
  14.  
  15.    Writeln('Index     = ',Index:12);
  16.    Writeln('Small_int = ',Small_int:12);
  17.    Writeln('Pos_int   = ',Pos_int:12);
  18.    Writeln('Big_int   = ',Big_int:12);
  19.    Writeln;
  20.  
  21.    Big_int := 1000 * Index + 1234;
  22.    Writeln('Big_int   = ',Big_int:12);
  23. end.
  24.