Вычислить сумму натуральных чисел не превосходящую заданное число а

Question

Вычислить сумму натуральных чисел не превосходящую заданное число а

Answer 1

Var
   A:integer;
   S:real;
Begin
Write('A = ');
ReadLn(A);
S:=0;
For A:= 1 to A do
    S:=S+A;
Write('S = ',S);
End.


A = 10
S = 55