Составление алгоритма вычисление суммы всех целых чисел заданного отрезка программы

Program Nazvanie;
var
i, n, m: integer;
begin
write('Любое натуральное число: ');
readln(n);
for i:=1 to n do
begin
m:=m+i;
end;
writeln('сумма всех натуральных чисел не превышающих ',n,' - ',m);
end.