Помогите написать программу, которая вычисляет сумму первых n натуральных чисел.( составьте программу с while)

Program n1;var n,sum,i: integer;beginreadln(n);i:=1;while i<=n dobeginsum:=sum+i;i:=i+1;end;write(sum);end.