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

var a,z,n: integer;begin n:=1; z:=0; readln(a); repeat z:=z+n; n:=n+1 until z>a; writeln(z);end.

 Вот программа