Найдите сумму всех натуральных чисел на промежутке от 1 до n. Число n вводится на клавиатуре.Составьте на Паскале с циклом WHILE
Var n,i,sum:integer; begin readln(n); sum:=0; i:=0; while i begin i:=i+1; sum:=sum+i; end; writeln(sum); end.