Напишите программу которая вычисляет сумму первых n натуральных чисел через оператор while

Var   n,c:integer; Begin   Write('Введите число ');   Readln(n);   Write('Сумма чисел от 1 до ',n,' равна ');   While n<>0 do Begin     c:=c+n;     n:=n-1;   End;   Write(c); End.

var s,i,n:integer; begin   readln(n); //цикл while   s:=0;   i:=0;   while i