home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / PASTUTOR.ZIP / INTVAR2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-07-28  |  298 b   |  18 lines
  1. PROGRAM more_integer_demos;
  2.  
  3. VAR x,y      : INTEGER;
  4.     count    : INTEGER;
  5.  
  6. BEGIN
  7.   x := 12;
  8.   y := 13;
  9.   count := x + y;
  10.   WRITE('The value of x is');
  11.   WRITELN(x:4);
  12.   WRITE('The value of y is');
  13.   WRITELN(y:5);
  14.   WRITE('And count is now ');
  15.   WRITE(count:6);
  16.   WRITELN;
  17. END.
  18.