Напишите программу которая вычисляет сумму первых 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.