{shows a simple accumulator. Sums from 1 to n} uses crt; const n = 10; var sum, j : integer; begin clrscr; sum := 0; for j := 1 to n do sum := sum + j; writeln('The sum of the #s from 1 to ', n, ' is ', sum) end.