Программа вводит целое положительное число N и подсчитывает сумму всех целых чисел от 1 до N
Program Summ_of_Integer;
var
i, n, s : Integer;
begin
Write('n = '); {Вводим n}
Readln(n);
s:= 0; {Начальное значение суммы}
for i:=1 to n do {Цикл подсчета суммы}
s:=s+i;
writeln('Cумма -',s); {Выводим результат}
end.
В случае, если учитываются положительные и отрицательные числа, то программа примет вид
Program Summ_of_Integer;
var
i, n, s : Integer;
begin
Write('n = '); {Вводим n}
Readln(n);
s:= 0; {Начальное значение суммы}
if n >= 0 then
for i:= 1 to n do
s:= s + i
else
for i:= -1 downto n do
s:= s + i;
writeln('Cумма -',s); {Выводим результат}
end.