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

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