[Pilot_Red]

вот цикл.. он обязан работать..........

Код:

repeat
R:=A+Q;
Q:=Q+1;
ListBox1.Items.Add(FloatToStr(A)+'+'+FloatToStr(Q) +'='+FloatToStr(R));
until Q>C ;