Вычислить сумму натуральных чисел не превосходящую заданное число а, while
Var A:integer; S:real; Begin S:=0; Write('A = ');ReadLn(A); While A>0 do Begin S:=S+A; A:=A-1 End; WriteLn('S = ',S); End.