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

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