Отыскать сумму всех положительных чисел, не превышающих данного естественного числа N.

program zz1;

var  i, s, n:integer; // задаем переменные целого типа

begin

write( введите данное число );  // вводим с клавиатуры число

read(n);

for i:=1 to n do // организуем цикл, в котором переберем все числа от единицы до n

s:=s + i; // вычисляем сумму всех чисел не превосходящих данного естественного числа

writeln( сумма всех положительных чисел, не превосходящих данного естественного числа  = , s); // выводим ответ

end.