home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug003.arc / JRTPAS-1.LBR / INTRO03A.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  384b  |  20 lines
  1. (*
  2.  
  3.      This is Example 3A, page 10, PItP:
  4.  
  5. *)
  6.  
  7. program ex3a;
  8.  
  9. var  sum,number : integer;
  10.  
  11. begin
  12.      writeln('Input numbers to be added: 0 ends input.');
  13.           sum := 0;  (* Clear to start *)
  14.      repeat
  15.           read(number);
  16.           sum := sum + number
  17.      until number = 0;
  18.      writeln('The total is: ',sum)
  19. end.
  20.