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

Program Summa;

Uses Crt;

var n, s, i:longint;

begin

clrscr;

write ('Введите N: ');

readln (n);

s:=0;

for i:=1 to n do s:=s+i;

writeln ('Сумма всех положительных чисел меньших чем N:', s);

readkey;

end.