Составь алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного с клавиатуры натурального числа n. напиши программу на паскале.

var
n, sum : integer;
begin
write('a? ');
readln ( a);
for var i := 1 to n-1 do sum := sum + i;
writeln(' сумма=', sum);
end.