Массивы, Как они меня достали Опции

[TORETO]

Даны действительние числа a[1],a[2],...a[28]; b[1],b[2],...b[28].... c[1],c[1]..с[29] связаны данными последовательностями след.соотношением:
c[29]=0

c[29-i]=a[29-i]/(b[29-i] - c[29-1+i]

i=1,2,...28

получить с[1],c[2]...c[29]

Как найти с[i] ??? Пишет Divizion by Zero. Что делать(a и b вводил через рандомайз)

[Malice]

Покажи код сразу, чего трудно чтоль ? Гимморой заочно не лечится..

[TORETO]

program mass
uses crt;
var
  a:array[1..28] of real;
  b:array[1..28] of real;
  c:array[1..29]of real;
  i:integer;
begin
 clrscr;
 c[29]:=0;
 For i:=1 to 28 do begin
 c[29-i]=a[29-1]/b[29-1] - c[29-1+i]
 writeln(c[i]);
 end;
readln;
end.

Добавлено через 1 мин.
Только выражение вот такое
c[29-i]=a[29-i]/(b[29-i] - c[29-1+i]

[Malice]

Где заполнение массивов ?