Подскажыте параграф 39 вопрос 7 семкакин вопрос "составьте алгоритм вычесления суммы всех натуральных чисел, не превышающих заданного числа n."

полагаю что алгаритм нужен на пакле, но всегда уточняй язык, а то так можно и на с++ написать, и гораздо короче...

program summa_n;

var n, i, a: integer;

begin

writeln ('enter N: ');

read(n);

a:=0;

for i:=0 to n do a:=a+i;

writeln('your summa = ', a);

end.