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

Var
   A:integer;
   S:real;
Begin
S:=0;
Write(A = );ReadLn(A);
While Agt;0 do
   Begin
   S:=S+A;
   A:=A-1
   End;
WriteLn(S = ,S);
End.