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

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