Вычислить сумму Z = 1 + 2 + 3 + ... . Вычисления прекратить, когда значение Z превысит заданное значение A.

Pascal

var A,Z,n:real;

begin

writeln('vvedite A ');

readln(A);

Z:=0;

n:=0;

while Z<A then

begin

Z:=Z+n;

n:=n+1;

end;

writeln(Z,'pri n=',n);

readln;

end.