Ответ:

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.

Удачи))