home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PASSRC.ZIP / INTVAR2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-04  |  477b  |  29 lines
  1.                                 (* Chapter 3 - Program 2 *)
  2. program More_Integer_Demos;
  3.  
  4. var X,Y      : integer;
  5.     Count    : integer;
  6.  
  7. begin
  8.    X := 12;
  9.    Y := 13;
  10.    Count := X + Y;
  11.    Write('The value of X is');
  12.    Writeln(X:4);
  13.    Write('The value of Y is');
  14.    Writeln(Y:5);
  15.    Write('And Count is now ');
  16.    Write(Count:6);
  17.    Writeln;
  18. end.
  19.  
  20.  
  21.  
  22.  
  23. { Result of execution
  24.  
  25. The value of X is  12
  26. The value of Y is   13
  27. And Count is now     25
  28.  
  29. }