Найти сумму всех положительных чисел, не превышающих данного натурального числа 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.