Найдите сумму всех натуральных чисел на промежутке от 1 до n.
Число n вводится на клавиатуре.Составьте на Паскале с циклом WHILE

varn,i,sum:integer;begin readln(n);sum:=0;i:=0;while i<n do  begin  i:=i+1;  sum:=sum+i;end;writeln(sum);end.