(*$I+***********************************************************
* PROGRAM ADDN
* You type in N integers, and this program will print
* them and their sum.
*
* Written by Charlie Foster(The Brain-Drain) as practise
* in programing in Pascal.
*
* Nov 1979
****************************************************************
*)
PROGRAM ADDN;
VAR
QTY : INTEGER; (* Quantity of values *)
NUM : INTEGER; (* Individual datum *)
SUM : INTEGER; (* Sum of values *)
BEGIN (* Main program *)
SUM := 0;
WRITE('--How many numbers do you intend to sum togeather?--> ');
READ(QTY);
WHILE QTY > 0 DO
BEGIN
NUM := 0;
WRITELN;
WRITE('--- ENTER a number--> ');
READ(NUM);
SUM := SUM+NUM;
QTY := QTY-1;
END;
WRITELN;
WRITELN('THE SUM IS: ', SUM);
WRITELN
END.
