Помогите с программой! Вычислить 1/(2*3)+2/(3*4)+...

[proofenz]

Мне нужна программа для примера 1/(2*3)+2/(3*4)+... до того числа, который я захочу.
Вот моя :

var a,b,c:integer;s:real;
begin
       a:=1;
       b:=2;
       c:=3;
s:=a/(b*c);
begin 
repeat
s:=s+s;
until s>100 ;
writeln ('ответ  ',s);
readln;
end;
end.

Помогите найти ошибку, пожалуйста !



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

Вы извините, но весь этот код одна сплошная ошибка!

рискну предложить Вам такой код:

var n,i:integer;
  s:real;
begin
  WriteLn('Введите число слагаемых N:');
  Readln(n);
  s:=0;
  for i:=1 to n do
    s := s + i/((i+1)*(i+2));
  writeln ('ответ  ',s);
  readln;
end.