Найдите сумму всех натуральных чисел меньше 7 pascal

Program zadacha1;

var  

s,n : integer;

begin

 writeln('Введите N');

 read(n);

 s:=0;

 while  (n<>0) do

 begin

   inc(s,n);

   dec(n);

 end;

 writeln('Сумма = ',s);

end.

Объяснение: