home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol019 / addn.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  899 b   |  39 lines
  1. (*$I+***********************************************************
  2. *        PROGRAM ADDN
  3. *    You type in N integers, and this program will print
  4. *   them and their sum.
  5. *
  6. *    Written by Charlie Foster(The Brain-Drain) as practise
  7. *    in programing in Pascal.
  8. *
  9. *    Nov 1979
  10. ****************************************************************
  11. *)
  12.  
  13. PROGRAM ADDN;
  14.  
  15. VAR
  16.    QTY : INTEGER;                    (* Quantity of values *)
  17.    NUM : INTEGER;                    (* Individual datum *)
  18.    SUM : INTEGER;                    (* Sum of values *)
  19.  
  20. BEGIN                             (* Main program *)
  21.     SUM := 0;
  22.     WRITE('--How many numbers do you intend to sum togeather?-->  ');
  23.     READ(QTY);
  24.     WHILE QTY > 0 DO
  25.  
  26.       BEGIN
  27.         NUM := 0;
  28.         WRITELN;
  29.         WRITE('--- ENTER a number--> ');
  30.         READ(NUM);
  31.         SUM := SUM+NUM;
  32.         QTY := QTY-1;
  33.       END;
  34.  
  35.     WRITELN;
  36.     WRITELN('THE SUM IS: ', SUM);
  37.     WRITELN
  38. END.
  39.