сумма от 1 до n

Ответ от Миоко Таканава[гуру]
Почему не пишите, как именно искать эту сумму?
По формуле суммы членов арифметической прогрессии:
program N53578469;
var n:integer;
s:longint;
begin
write('Введите N: ');
readln(n);
s:=(1+n)*n div 2;
writeln('Сумма чисел от 1 до ',n,' равна ',s);
end.
С помощью цикла:
program N53578469_cycl;
var n,i:integer;
s:longint;
begin
write('Введите N: ');
readln(n);
s := 0;
for i := 1 to n do
s:=s + i;
writeln('Сумма чисел от 1 до ',n,' равна ',s);
end.