Program Sum;
var num, start: integer;
begin
start := 1;
write('Enter N: '); readln(num);
for var i := 2 to num do
start += i;
writeln('Sum = ',start);
end.
Удачи))
