(* add5.pas - Let's ask the user for 5 numbers, and then find
 * their sum.  It's critical to think about the
 * variables we need.
 *)
program add5;

var
  count, sum, NextNumber : integer;

begin
  count := 0;
  sum := 0;
  while count < 5 do
    begin
      write('Enter a number:  ');
      readln(NextNumber);
      sum := sum + NextNumber;
      count := count + 1;
    end;
  writeln('The sum of your numbers is ', sum)
end.