home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / T_LESSON.ZIP / PROG6B.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-04-18  |  636 b   |  29 lines
  1. PROGRAM PROG6B;
  2. {          Copyright (C), 1989 by Lyle Faurot.  All rights reserved.
  3.  
  4.     New Topics: IF statement
  5.                 Conditions used with IF
  6. }
  7.  
  8. VAR
  9.   Have, Want  : Integer;
  10.  
  11. BEGIN
  12.   Write('How many computers do you own? ');
  13.   ReadLn(Have);
  14.   Write('How many computers would you like? ');
  15.   ReadLn(Want);
  16.   WriteLn;
  17.  
  18.   If Have >= Want     {Two-way IF .. THEN .. ELSE }
  19.     THEN
  20.       WriteLn('Congratulations! Happy Computing!')
  21.     ELSE
  22.       WriteLn('Sorry about that!');
  23.  
  24.   If Have = 0         {One-way IF .. THEN }
  25.     THEN
  26.       WriteLn('No computer!  Give me a call at 123-4567.');
  27.  
  28. END.
  29.