[lmikle]

Ну так и считай.

Код:

var
  I : Integer;
  A, B, C : Array [1..25] Of Integer;
begin
  C[25] := 0;
  For I := 24 DownTo 1 Do
    C[25-I] := A[25-I]/B[25-I] - C[25-I+1];
end;

Ну а потом из массива C выводишь в 3й стринггрид.